Верно ли, что данное число содержит три одинаковые цифры? Оформить процедурой

var
  p:longint;
  verno:boolean;
procedure Digits3(a:longint;var f:boolean);
var
  i:0..9;
  t:array[0..9] of byte;
begin
  if a<111 then
    begin
      f:=false;
      exit;
    end
  else
    begin
      for i:=0 to 9 do
        t[i]:=0;
      while a<>0 do
      begin
        inc(t[a mod 10]);
        a:=a div 10;
      end;
      f:=false;
      for i:=0 to 9 do
        if t[i]>=3 then
          begin
            f:=true;
            break;
          end;
    end;
end;
begin
  repeat
    write('Vvedite naturalnoe chislo:');
    readln(p);
  until p>0;
  Digits3(p,verno);
  if verno then
    writeln('Verno')
  else
    write('Neverno');
end.

var
  p:longint;
  verno:boolean;
//процедура для опр. вхождения в число 3 или более один. цифр, входной параметр-значение - число, выходной - параметр-переменная типа boolean, в ней мы вернем результат
procedure Digits3(a:longint;var f:boolean); 
var
  i:0..9;//счетчик
  t:array[0..9] of byte;//массив, в кот. индексы - цифры, значения эл. - кол-во вхождений цифры в число
begin
  if a<111 then//числа меньше 111
    begin
      f:=false;//не могут иметь 3 одинаковых цифр
      exit;//выходим из процедуры
    end
  else
    begin
      for i:=0 to 9 do//инициализируем элементы массива 
        t[i]:=0;//нулевыми значениями
      while a<>0 do//цикл для поиска цифр числа, пока число не станет равным нулю
      begin
        inc(t[a mod 10]);//a mod 10 отсекает очередную цифру числа, эл. массива под индексом соотв. цифре инкрементируем
        a:=a div 10;//делим число нацело на 10
      end;
      f:=false;//считаем, что в числе нет 3 одинаковых цифр
      for i:=0 to 9 do//перебираем эл. полученного массива
        if t[i]>=3 then//если значение эл. массива больше или равно 3
          begin
            f:=true;//запоминаем, что в числе 3 или более одинаковых цифр
            break;//принудительно выходим из цикла, нет смысла проверять дальше
          end;
    end;
end;
begin
  repeat
    write('Vvedite naturalnoe chislo:');
    readln(p);
  until p>0;//получаем на ввод только натуральное число
  Digits3(p,verno);//вызываем нашу процедуру, помещая результат в глобальную переменную verno
  if verno then//анализируя ее значение, выводим результат
    writeln('Verno')
  else
    write('Neverno');
end.