Дано естественное число N. Найти количество цифр в цифровой записи данного

Var n,min,t,k:longint;
Begin
nbsp;nbsp;nbsp;nbsp;write(Введите n: );readln(n);
nbsp;nbsp;nbsp;nbsp;t:=n;min:=9;
nbsp;nbsp;nbsp;nbsp;While tgt;0 do
nbsp;nbsp;nbsp;nbsp;Begin
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;if t mod 10 lt; min then min:=t mod 10;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;t:=t div 10;
nbsp;nbsp;nbsp;nbsp;End;
nbsp;nbsp;nbsp;nbsp;t:=n;
nbsp;nbsp;nbsp;nbsp;While tgt;0 do
nbsp;nbsp;nbsp;nbsp;Begin
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;if t mod 10 = min then inc(k);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;t:=t div 10;
nbsp;nbsp;nbsp;nbsp;End;
nbsp;nbsp;nbsp;nbsp;writeln(Min = ,min);
nbsp;nbsp;nbsp;nbsp;writeln(Цифр с наименьшим значением = ,k);
nbsp;nbsp;nbsp;nbsp;readln;
End.