Определить самую большую цифру в числе и ее позицию

uses crt;
n:longint;
k,max,t:integer;
 
begin
 clrscr;
 write('-> ');
 readln(N);
 max:=-1;
 k:=0;
 t:=1;
 while N<>0 do
 begin
  if n mod 10 > max then
  begin
   max := n mod 10;
   k := t;
  end;
  t := t + 1;
  n := n div 10;
 end;
 
 writeln('MAX = ',max,' POS = ',k);
 readln;
end.

var
  n, i, imax: integer;
  s: string;
 
begin
  writeln('введите натуральное число');
  readln(n);
  str(n, s);
  imax := 1;
  for i := 1 to length(s) do 
  begin
    if s[i] > s[imax] then begin
      imax := i;
    end;
  end;
  writeln('в числе', ' ', n, ' ', 'самая большая цифра', ' ', s[imax], ' ', 'находится на', ' ', imax, ' ', 'позиции');
end.

var
  N: integer;
  temp: string;
  i,max: byte;
begin
  ReadLn(N);
  Str(N, temp);
  max := 1;
  for i := 2 to Length(temp) do
    if temp[i] > temp[max] then
      max := i;
  WriteLn('Ìàêñèìàëüíàÿ: ', temp[max], ' E¸ ïîçèöèÿ: ', max);
  ReadLn;
end.