Подправить программу связанную с файлами

program laba;
var
f, g, temp: text;
s: string;
i, p, n, k, a: integer;
rez: boolean;
begin
Assign (f, 'f.txt');
assign (g, 'g.txt');
assign (temp, 'temp.txt');
reset (f);
rewrite(temp);
while not (eof (f)) do
begin
readln (f,s);
writeln (s);
end;
readln;
close (f);
reset (f);
while not (eof (f)) do
begin
readln (f,s);
n:=0;
k:=1;
p:=length(s);
while k<p do
begin
rez:= false;
inc(n);
k:= n+2;
a:= n+1;
if s[n] <> ' ' then rez:=true;
if s[k] <> ' ' then rez:=true;
if s[a] = ' ' then rez:=true;
if rez=false then
begin
delete(s,a,1);
end;
if (S[1]<> ' ') and (s[2]=' ') then delete(s,1,1);
i:=length (s);
a:=i-1;
if (s[i]<> ' ') and (s[a]=' ') then delete(s,i,1);
p:=length (s);
end;
writeln (temp,s);
end;
close (f);
close (temp);
reset (f);
reset (temp);
rewrite (g);
while not (eof (temp)) do
begin
readln (temp,s);
n:=0;
k:=1;
p:=length(s);
while k<p do
begin
inc(n);
if s[n] = ' ' then k := n+1;
if s[k] = ' ' then
begin
delete(s,n,1);
dec(n);
end;
p:=length(s);
end;
if s[1] = ' ' then delete(s,1,1);
i:= length(s);
if s[i]= ' ' then delete(s,i,1);
writeln (g,s);
end;
close(temp);
close (g);
end.

program laba;
var  f, g: text;
     s: string;
     i, p, n, k, a: integer;
begin
Assign (f, 'f.txt');
assign (g, 'g.txt');
reset (f);
rewrite(g);
while not (eof (f)) do
 begin
  readln (f,s);
  for i:=length(s) downto 1 do //удалим однобуквенные
  if(s[i]<>' ')and((i=1)or(s[i-1]=' '))and((i=length(s))or(s[i+1]=' '))
  then delete(s,i,1);
  while pos('  ',s)>0 do delete(s,pos('  ',s),1);//удалим лишние пробелы
  if s[i]=' ' then delete(s,1,1);                //в апострофах по 2 пробела;
  if s[length(s)]=' ' then delete(s,length(s),1);
  writeln(g,s);
 end;
close(f);
close (g);
write('Файл f.txt переписан в файл g.txt')
end.

var f:fike of char;