Дан текстовый файл f. Исключить пробелы, стоящие в концах его строк. Результат поместить в файл f1 — Pascal(Паскаль)

uses crt;
var f,f1:text;
    i:byte;
    name,s:string;
begin
clrscr;
write('Имя файла для чтения: ');
readln(name);
name:=name+'.txt';
assign(f,name);
{$I-} reset(f);  {$I+}
if IOResult <> 0 then
 begin
  writeLn('Не могу открыть файл ',name);
  writeLn('Работа программы завершена. Нажмите ENTER');
  readln;
  exit;
 end;
write('Имя файла для записи: ');
readln(name);
name:=name+'.txt';
assign(f1,name);
rewrite(f1);
while not eof(f) do
 begin
  readln(f,s);
  if s[length(s)]=' ' then
   begin
    i:=length(s);
    while(s[i]=' ') and(i>0)do
     begin
       delete(s,i,1);
       i:=i-1;
     end;
   end;
  writeln(f1,s);
 end;
close(f);
close(f1);
write('Fail perepisan!');
readln
end.