Выбрать в каждой строке файла наибольшую последовательность идущих подряд цифр

procedure numtofile(name,namenew:string);
type digit=set of '0'..'9';
var f,fnew:text;
b:boolean;
s,ss:string;
i,k:integer;
dig:digit;
begin
dig:=['0'..'9'];
assign(f,name);
assign(fnew,namenew);
{$I-}
reset(f);
{$I+}
if ioresult=0 then begin
   {$I-}
   rewrite(fnew);
   {$I+}
   if ioresult=0 then begin
while not(eof(f)) do begin
    readln(f,s);
    b:=false;
        ss:='';
        write('str: ',s,' ');
        write('Length= ',length(s),' ');
    for i:=1 to length(s) do begin
        writeln('i: ',i:3);
        writeln('s:',s[i]);
        if s[i] in dig then begin
            if b then begin
                k:=0;
                while (s[i] in dig) and (i<=length(s)) do begin
                    i:=i+1; k:=k+1;
                end;
                if k>length(ss) then ss:=copy(s,i-1,i);
            end
            else begin
                b:=true;
                repeat and (i<=length(s)) ss:=ss+s[i]; i:=i+1; until not (s[i] in dig) or (i>length(s));
            end;
        end;
                writeln(' ss: ',ss);
 
    end;
                        if b then writeln(fnew,ss);
        writeln;
end;
   close(fnew);
end;
close(f);
end;
end;

(*Выбирает из строки максимально длинную последовательность цифр.*)
function GetMaxSeq(const aStr : String) : String;
const
  Dig = ['0'..'9'];
var
  StrTmp, StrRes : String;
  i : Integer;
begin
  StrRes := '';
  StrTmp := '';
  for i := 1 to Length(aStr) do begin
    if aStr[i] in Dig then StrTmp := StrTmp + aStr[i];
    if ( not (aStr[i] in Dig) or (i = Length(aStr)) ) and (StrTmp <> '') then begin
      if Length(StrTmp) > Length(StrRes) then StrRes := StrTmp;
      StrTmp := '';
    end;
  end;
  GetMaxSeq := StrRes;
end;
 
const
  FnIn = 'in.txt';
  FnOut = 'out.txt';
var
  FIn, FOut : Text;
  StrTmp, StrRes : String;
begin
  (*Создаём файл с входными данными.*)
  Assign(FIn, FnIn);
  (*Создаём/пересоздаём файл и открываем его для записи.*)
  Rewrite(FIn);
  Writeln(FIn, 'xxxxxxx1xxxx12xxxxxxx123xxxx');
  Writeln(FIn, 'xxxxxxx1234xxxx12xxxxxxx123xxxx');
  Writeln(FIn, 'xxxxxxx123xxxx12345xxxxxxx123xxxx');
  Writeln(FIn, 'xxxxxxx123456xxxx12xxxxxxx123xxxx');
  Writeln(FIn, 'xxxxxxx1xxxx12xxx1234567xxxx123xxxx');
  Writeln(FIn, 'xx12345678xxxxx1xxxx12xxxxxxx123xxxx');
 
  (*Открываем входной файл для чтения.*)
  Reset(FIn);
 
  Assign(FOut, FnOut);
  (*Создаём/персоздаём выходной файл и открываем его для записи.*)
  Rewrite(FOut);
 
  (*Читаем построчно входной файл. Извлекаем из каждой прочитанной строки
  максимально длинную последовательность цифр и записываем её в выходной файл.*)
  Writeln('Входной файл:');
  while not Eof(FIn) do begin
    Readln(FIn, StrTmp);
    Writeln(StrTmp);
    StrRes := GetMaxSeq(StrTmp);
    Writeln(FOut, StrRes);
  end;
 
  (*Распечатываем выходной файл.*)
  Writeln('Выходной файл:');
  Reset(FOut);
  while not Eof(FOut) do begin
    Readln(FOut, StrTmp);
    Writeln(StrTmp);
  end;
 
  (*Закрываем файлы.*)
  Close(FIn);
  Close(FOut);
 
  Readln;
end.

{$I-}
reset(f);
{$I+}

{$I-} (*Это директива (команда) компилятору - отключить контроль ошибок ввода/вывода.
При этом, если возникают ошибки ввода/вывода, то останова программы не происходит. Сведения
о коде ошибки записываются в переменную Ioresut.*)
reset(f); //Попытка открыть файл.
{$I+} (*Директива компилятору - вновь включить контроль ошибок ввода/вывода.*)
//Обработка ошибок.
if Ioresult <> 0 then begin
  (*В качестве реакции на возникшую ошибку (обработка исключительной ситуации) извещаем пользователя о проблемах
  с открытием файла. Затем, завершаем выполнение программы через Exit.*)
  Writeln('Ошибка! Не удалось открыть файл! Программа прервана.');
  Writeln('Код ошибки = ', Ioresult);
  Writeln('Для выхода нажмите любую клавишу.');
  Readln;
  Exit;
  (*В качестве обработки этой исключительной ситуации можно было реализовать
  более сложные действия - например, попросить пользователя ввести новое имя
  файла и попытаться его открыть. Такие действия следует реализовывать, если
  это действительно нужно в контексте задачи.*)
end;