Дано число 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.