В текстовом файле заменить все группы пропусков, больше 1 на 1 пропуск

const f1 = 'c:\test.txt';
      f2 = 'c:\test.tmp';
var s: string;
    f, g: text;
begin
  assign(f, f1);
  reset(f);
  assign(g, f2);
  rewrite(g);
  while not eof(f) do
    begin
      readln(f, s);
      while (length(s) > 0) and (s[1] = ' ') do delete(s, 1, 1);
      while (length(s) > 0) and (s[length(s)] = ' ') do delete(s, length(s), 1);
      while pos('  ', s) > 0 do delete(s, pos('  ', s), 1);
      writeln(g, s)
    end;
  close(f);
  close(g);
  erase(f);
  rename(g, f1)
end.

const
  f = 'test.txt';
begin
  if Not System.IO.File.Exists(f) then
    begin WriteLn('Файл ' + f + ' не найден!'); Halt; end;
  var S := ReadAllText(f);
  while S.IndexOf('  ') > -1 do S := S.Replace('  ', ' ');
  WriteAllText(f, S);
end.

  WriteAllText(f, Regex.Replace(ReadAllText(f), ' +', ' '));

program vita;
uses crt;
var s:string;
TFile: Text;
i: integer;
begin
 assign(TFile,'MFail.txt');
  rewrite(TFile); 
   write(TFile,s); 
begin
textcolor(10); writeln('Вихiдний текст');
textcolor(12);
   readln(s);
   i:=-1;
while i<>0 do begin
  delete(s,i,1);
  i:=pos('  ',s); 
 end;
write(s);
readln;
textcolor(10); writeln('Текст який буде записано в файл ');
end;
 begin
clrscr;
  write(TFile,s);
  close(TFile);
  end;
end.