Delphi, файлы

[Тимур(16rus)]

В заданном тексте заменить все числа повторяющимся по числу цифр заданным символом

Начало есть, закончить никак не могу

program Zadacha10;
{$APPTYPE CONSOLE}
uses
  SysUtils,
crt32;

var
  svec : array of string;
  ti : TextFile;
  subs,fn :string;
   wd : real;
  i :integer;
function CompaerWords(s1,s2 :string) :boolean;
var
  res :boolean;
  i :integer;
begin
  res:=true;
  s1:=LowerCase(s1);
  s2:=LowerCase(s2);
  for i:=1 to Length(s1) do
  begin
    if pos(s1[i], s2) = 0 then
    begin
      res:=false;
      break;
    end;
  end;
  CompaerWords :=res;
end;

begin
  Write(oem('Задайте имя текстового файла: '));
  ReadLn(fn);
  WriteLn;

  AssignFile(ti, fn);
  {$I-}
  Reset(ti);
  if not (IOresult=0) then
  begin
    WriteLn(oem('Ошибка при открытии файла. ' +
      'Нажмите любую клавишу для завершения программы...'));
    ReadKey;
    Halt;
  end;

  i:=0;
  While not eof(ti) do
  begin
    ReadLn(ti);
    inc(i);
  end;
  CloseFile(ti);

  SetLength(svec, i);
  WriteLn(oem('Содержимое текстого файла "'), fn, '":');
  WriteLn;
  i:=0;
  Reset(ti);
  While not eof(ti) do
  begin
    ReadLn(ti, svec[i]);
    WriteLn(svec[i]);
    inc(i);
  end;
  CloseFile(ti);
  {$I+}

  WriteLn;
  Write(oem('Измененный текст: '));
  for i:=0 to length(svec)-1 do