Дано целое число N.Выяснить,сколько раз в этом числе встречается его минимальная цифра. pascal пожалуйста

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.

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