Určí maximálnu cifru zo zadaného čísla

{ MAX_CIFRA.PAS                                                     }
{ Urci maximalnu cifru zo zadaneho cisla.                           }
{                                                                   }
{ Date  : 14.04.2008                           http://www.trsek.com }
 
program maximalna_cifra;
var N:longint;                 { cislo }
    max: integer;              { maximalna cifra }
    pom: integer;              { pomocna premena }
 
begin
 writeln('Program urci maximalnu cifru cisla : ');
 write  ('Zadaj N = ');
 
 readln(N);
 max:=0;
 
 while(N>0) do
  begin
   pom:=N mod 10;
   N:=N div 10;
 
   { je vacsie ako doteraz najdene }
   if( pom > max )then
       max:=pom;
  end;
 
  writeln('Maximalna cifra je : ', max);
  readln;
end.