Дана строка текста. Выяснить, верно ли, что в нем есть пять идущих подряд одинаковых чисел

var
  s1,s:string;
  x,code,i,j:LongInt;
begin
  readln (s);
//  s:='11114vb5555rtyutr66666nnnn';
  s1:='';
  for i:=1 to length (s)-4 do
    begin
      J:=i+1;
      while (s[i]=s[j]) and (j<(i+5)) do
        inc (j);
      if j=i+5 then
        begin
          s1:=copy(s,j-5,5);
          break;
        end
    end;
  val(s1,x,code);
  if code=0 then
    begin
      writeln('Да, есть пять идущих подряд одинаковых цифр.');
      x:=(x div 10000)*5;
      writeln('Сумма цифр: ',x);
    end
  else
    writeln('Нет пяти идущих подряд одинаковых цифр.');
  readln;
end.

Function Check(s : String) : Boolean;
Begin
  Check:=(Pos('00000',s)>0) or (Pos('11111',s)>0) or (Pos('22222',s)>0) or (Pos('33333',s)>0) or (Pos('44444',s)>0) or 
             (Pos('55555',s)>0) or (Pos('66666',s)>0) or (Pos('77777',s)>0) or (Pos('88888',s)>0) or (Pos('99999',s)>0);
end;

function Check(s : string) : boolean;
begin
  Check := (Regex.Match(s, '([0-9])\1{4}').Value <> '');
end;

      writeln('Сумма цифр: ',x);
      writeln('Делители суммы цифр:');
      for i := 1 to x div 2 do if x mod i = 0 then write(i, ' ');
      writeln(x)
    end
  else
    writeln('Нет пяти идущих подряд одинаковых цифр.');
  readln;
end.