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

const
 f='text.txt';
 g='aaa.txt';
 
var
 t,a: text;
 st: string;
 
function pr1(x: string): string;
 var i:integer;
 begin
  for i:=1 to length(x) do
   if x[1]=' ' then delete(x,1,1);
  pr1:=x;
 end;
 
 function pr2(x: string): string;
 var i: integer;
 begin
  for i:=1 to length(x) do 
   if st[length(x)]=' ' then delete (x,length(x),1);
  pr2:=x;
 end;
 
function prob(x: string): string;
 var i,j: integer;
 begin
  for i:=1 to length(st) do
  for j:=1 to length(st) do
   if (x[j]=' ') and (x[j+1]=' ') then delete(x,i,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;
 reset(a);
 rewrite(t);
 while not eof(a) do
  begin
   readln(a,st);
   writeln(t,st);
  end;
 close(t);
 close(a);
end.

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.