Подскажите почему не работает?Она должна удалять лишние пробелы в файле в любой строке.

Program space;
 var
q:text;
s:array[1..100] of string;
i,j,n:integer;
begin
writeln('vvesti chislo strok');
readln(n);
assign(q,'finish.txt');
reset(q);
while not Eof(q) do
for i:=1 to n do
read(q,s[i]);
rewrite(q);
while pos('  ',s[i])>0 do
delete(s[i],pos('  ',s[i]),1);
write(q,s[i]);
close(q);
end.

Program space;
 var
q,f:text;
s:string;
i,j,n:integer;
begin
assign(q,'finish.txt');
reset(q);
assign(f,'start.txt');
rewrite(f);
while not Eof(q) do
readln(q,s);
while pos('  ',s)>0 do
delete(s,pos('  ',s),1);
writeln(f,s[i]);
close(q);
close(f);
erase(q);
rename(f,'finish.txt');
end.

Program space;
var q,f:text;
     s:string;
     i,j,n:integer;
begin
assign(q,'finish.txt');
reset(q);
assign(f,'start.txt');
rewrite(f);
while not Eof(q) do
 begin
  readln(q,s);
  while pos('  ',s)>0 do
  delete(s,pos('  ',s),1);
  writeln(f,s);
 end;
close(q);
close(f);
erase(q);
rename(f,'finish.txt');
end.