Дано целое число, найдите в нем повторяющиеся цифры; выведите эти цифры и их количество (на Паскале)

Program n1;

var

st: string;

i, c: longint;

b: boolean;

procedure numdig (st: string; x: char);

var i, k: longint;

t: string;

begin

t:='';

k : = 0;

for i : = 1 to length (st) do

begin

if st[i] = x then k : = k + 1;

end;

if (k0) and (k1) then

begin

if (k=2) or (k=3) or (k=4) then t:='а';

writeln ('цифра ', x,' повторяется ', k,' раз', t);

c:=c+1;

end

end;

begin

c:=0;

write ('введите число: ');

read (i);

str (i, st);

numdig (st,'0');

numdig (st,'1');

numdig (st,'2');

numdig (st,'3');

numdig (st,'4');

numdig (st,'5');

numdig (st,'6');

numdig (st,'7');

numdig (st,'8');

numdig (st,'9');

if c=0 then writeln ('цифры не повторяются');

end.