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