Дано число n проверить есть ли в записи 3 одинаковых числа (число не больше 10 000)

Var A:array[1 ... 5] of Integer;

j, l, i, k, N:integer;

begin

Readln (N) ;

While not (N=0) do

begin

k:=k+1;

A[k]:=N mod 10;

N:=N div 10;

end;

For i:=1 to min (3, k) do

begin

N:=A[i];

l:=0;

For j:=1 to k do

If N=A[j] then

l:=l+1;

If l>=3 then

begin

Writeln ('В записи есть три одинаковых чисел') ;

l:=20;

break;

end;

end;

If not (l=20) then

Writeln ('В записи нет трех одинаковых чисел') ;

end.