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

var A:array[1..5] of Integer;j,l,i,k,N:integer;beginReadln(N);While not(N=0) dobegink:=k+1;A[k]:=N mod 10;N:=N div 10;end;For i:=1 to min(3,k) dobeginN:=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.