Дано натуральное чисто N определить количество цифр в числе , найти самую большую цифру и ее позицию в числе — Pascal(Паскаль)

program nums;
var
    num,f,k,i: longint;
begin
 write('Введите число:');
 readln(num);
 k:=0;
 i:=0;
 while num>0 do
  begin
   if (num mod 10)>k then
    begin
     k:=num mod 10;
     f:=i;
    end;
   i:=i+1;
   num:=num div 10;
  end;
 writeln('кол-во цифр в числе: ',i);
 writeln('самая большая цифра: ', k);
 writeln('её позиция: ', i-f);
 readln;
end.