Откорректировать файл, удаляя пустые строки, пробелы в конце и вначале строк и оставляя между словами по одному пробелу

Program k1;
const
 f='text.txt';
 g='aaa.txt';
var
 t,a: text;
 st: string;
function pr1(x: string): string;
var i:integer;
begin
if x[1]=' ' then
while x[1]=' ' do
delete(x,1,1);
pr1:=x;
end;
function pr2(x: string): string;
var i: integer;
begin
if x[length(x)]=' ' then
while x[length(x)]=' ' do
delete(x,length(x),1);
pr2:=x;
end;
function prob(x: string): string;
var i,j: integer;
begin
while pos('  ',x)>0 do{здесь везде по 2 пробела}
delete(x,pos('  ',x),1);
prob:=x;
end;
begin
assign(t,f);
assign(a,g);
reset(t);
rewrite(a);
while not eof(t) do
 begin
  readln(t,st);
  if length(st)>0 then
    begin
     st:=pr1(st);
     st:=pr2(st);
     st:=prob(st);
     writeln(a,st);
    end;
 end;
close(t);
close(a);
erase(t);
rename(a,f);
writeln('Файл отредактирован');
readln
end.

//функция удаления пробелов в начале строки
function pr1(x: string): string;
var i:integer;
begin
if x[1]=' ' then//если первый символ пробел
while x[1]=' ' do //то пока пробелы
delete(x,1,1); //удаляем из по одному
pr1:=x;//значение функции измененная строка
end;
//функция удаления пробелов в конце строки
function pr2(x: string): string;
var i: integer;
begin
if x[length(x)]=' ' then//если последний символ пробел
while x[length(x)]=' ' do // то пока пробелы
delete(x,length(x),1);//удаляем их по одному
pr2:=x;//значение функции измененная строка
end;
//функция удаления лишних пробелов в строке
function prob(x: string): string;
var i,j: integer;
begin
//пока есть 2 пробела рядом
while pos('  ',x)>0 do{здесь везде по 2 пробела}
delete(x,pos('  ',x),1);//один удаляем
prob:=x;//значение функции измененная строка
end;
begin
assign(t,f);//связываем переменную t с исходным файлом
assign(a,g);//связываем переменную а с вспомогательным файлом
reset(t); //открываем исходный для чтения
rewrite(a);//открываем вспомогательный для записи
while not eof(t) do //пока не конец файла
 begin//читаем строки
  if length(st)>0 then//если строка не пустая
    begin
     st:=pr1(st);//удаляем пробелы в начале
     st:=pr2(st);//удаляем пробелы в конце
     st:=prob(st);//удаляем лишние пробелы
     writeln(a,st);//пишем строку в файл а
    end;
 end;
close(t); //закрываем файлы
close(a);
erase(t);//удаляем исходный файл
rename(a,f);//переименовываем вспомогательный в исходный
writeln('Файл отредактирован');
readln
end.

function Trim(s: String): String;
var p: Integer;
begin
  p:=Pos('  ',s);
  while p>0 do begin
    Delete(s,p,1); p:=Pos('  ',s); { удалим пробел из пары }
  end;
  if s[1]        =' ' then Delete(s,1,        1); { удалим пробел в начале }
  if s[Length(s)]=' ' then Delete(s,Length(s),1); { удалим пробел в конце }
  Trim:=s;
end;

  while not EoF(t) do begin
    ReadLn(t,st); st:=Trim(st);
    if Length(st)>0 then WriteLn(a,st);
  end;

procedure Trim(var s: String);
var i, j: Integer;
begin
  j:=0; i:=1; while s[i]=' ' do Inc(i);  { FPC гарантирует #0 в конце строки }
  for i:=i to Length(s) do
    if (s[i]<>' ') or (s[i]=' ') and (s[i-1]<>' ') then begin
      Inc(j); s[j]:=s[i];
    end;
  if (j>0) and (s[j]=' ') then Dec(j);
  SetLength(s,j);
end;

Program kr1;
 
function pr1(x: string): string; //функция удаления пробелов в начале строки
begin
  while (length(x) > 0) and (x[1] = ' ') do delete(x, 1, 1); //удаление ведущих пробелов
  pr1 := x //возврат результата
end;
 
function pr2(x: string): string; //функция удаления пробелов в конце строки
begin
  while (length(x) > 0) and (x[length(x)] = ' ') do delete(x, length(x), 1);
  pr2 := x
end;
 
function prob(x: string): string; //функция замены многократного пробела на одинарный
begin
  while pos('  ', x) > 0 do delete(x, pos('  ', x), 1);//пока в строке есть два пробела подряд, удалять один пробел
  prob:=x //возврат результата
end;
 
const
  f = 'text.txt';
  g = 'aaa.txt';
 
var
  t, a: text;
  st: string;
 
begin
  assign(t, f); //входной файл
  reset(t);
  assign(a, g); //выходной файл
  rewrite(a);
  while not eof(t) do //пока не конец файла, цикл
    begin
      readln(t, st); //чтение строки из файла
      st := prob(pr2(pr1(st))); //удаление лишних пробелов
      if length(st) > 0 then writeln(a, st) //если строка не пустая, то записать полученную строку в файл
    end;
  close(t);
  close(a);
  erase(t); //стереть входной файл
  rename(a, f); //дать выходному файлу имя входного файла
  writeln('Файл отредактирован');
  readln
end.