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

program nums;
var
    num,f,k,i: longint;
begin
 write('Введите число:');
 readln(num);
 k:=10;
 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.