Дано целое число N.Узнать,сколько раз в этом числе встречается его малая

Var a,b,c,k,kol:
integer;
begin
writeln ('введите число');
readln(a);
kol:=1;
c:=10;
while (alt;gt;0) do begin 
b:=a mod
10; 
 if (blt;c) then c:=b;   
 if b=k then kol:=kol+1; 
a:=a div 10; 
k:=c;
end;
writeln('малая цифра ==gt; ',c);
writeln('в этом числе этих цыфр ==gt; ',kol);
end.

Var s: string;
   ch: char;
    i: integer;
begin
  write('строчка:  ');
   readln(s);
  foreach ch in s.Sorted do
   if ch = s.Sorted.First then i:=i+1;
  writeln('цифра = ',s.Sorted.First,' ',i,' раз(а) ');
end.