Дано натуральное n-значное число P. Верно ли что число содержит три одинаковые цифры.

uses crt;
function Razr(n:longint;k:byte):boolean;{проверка разрядности}
var m:longint;
    i:byte;
begin
m:=n;
i:=0;
while m>0 do
 begin
  m:=m div 10;
  i:=i+1;{считаем цифры}
 end;
if i=k then Razr:=true{если сколько и задано}
else Razr:=false;
end;
function Cifr3(n:longint):boolean;{ищем 3 одинаковые цифры}
var m:longint;
    s:array[1..9] of 0..9;
    i,k,p,j:byte;
begin
Cifr3:=false;{пока нет}
m:=n;
k:=0;
while m>0 do
 begin
  i:=m mod 10;
  k:=k+1;
  s[k]:=i;{составляем массив из цифр}
  p:=0;
  for j:=1 to k do{идем по массиву}
  if s[j]=i then p:=p+1;{считаем совпадения текущей цифры}
  if p=3 then{если есть 3}
   begin
    Cifr3:=true;{норм.}
    break;{дальше не проверяем}
   end;
  m:=m div 10;
 end;
end;
var p:longint;
    n:byte;
begin
clrscr;
repeat
write('Введите количество цифр от 1 до 9 n=');
readln(n);
if not(n in [1..9])then writeln('Недопустимое значение');
until n in [1..9];
repeat
write('Введите число из ',n,' знаков p=');
readln(p);
if not Razr(p,n) then writeln('Это не ',n,'-значное число');
until Razr(p,n);
if Cifr3(p) then write('Число содержит 3 одинаковые цифры')
else write('Число не содержит 3х одинаковых цифр');
readln
end.