PASCAL. Сколько раз в целом числе встречается самая махонькая цифра этого

Pascal ABC. Процедура.

-----------------------------------------------------

var
  N:longint;
  min:longint;
  count: byte;
  tmp, z: longint;
procedure MinAndCount(var a: longint);
begin
readln(N);
z := N;
count := 0;
min:=10;
while Nlt;gt;0 do
 begin
  if n mod 10 lt; min then
    min := n mod 10;
  n := n div 10;
 end;
tmp := min;
while zlt;gt;0 do
begin
if (z mod 10)=tmp then inc(count);
z:=z div 10;
end;
 writeln('Самая маленькая цифра = ',min, ' встречается = ', count, ' раз(а).');
 readln;
end;

begin
  write('Введите число: ');
  MinAndCount(N);
end.