[Appolinariya_]

Дано натуральное число. Верно ли, что данное число содержит три одинаковые цифры?
В моем понимании эта программа должна выглядеть как-то так. Помогите, пожалуйста, исправить, что неправильно.
Мне кажется, что целесообразней присвоить переменной значение первой цифры и сравнить ее с остальными цифрами, ведь саму цифру, которая повторяется, выводить не требуется. Нет смысла проверять все цифры от 0 до 9, когда большей части из них вообще в числе не окажется.

program qwe;
{$APPTYPE CONSOLE}
uses
  SysUtils;
 
var
 n,m:string;
 k:integer;
 
procedure proverka(const n:string);
var
 c,i,j:integer;
begin
 c:=length(n);
 k:=0;
 for i:=1 to c do
 begin
  m:=n mod 10;
 for j:=1 to c do
 begin
  if m=n[j] then
   inc(k);
 end;
 end;
 
end;
 
begin
 write('n= ');
 readln(n);
 poverka(n);
 if k=3 then
  write('Verno ')
 else
  write('Neverno ');
 readln;
end.