50 . pascalabc дан текстовый файл f. исключить пробелы, стоящие в концах его строк. результат поместить в файл f1.

Var f,f1:text;
s:string;
begin
assign(f,'f.txt');
reset(f);
assign(f1,'f1.txt');
rewrite(f1);
while not eof(f) do
 begin
 readln(f,s);
 {есть функция:
  function TrimRight(s: string): string;
  Возвращает строку с удаленными конечными пробелами
  Можно и так, как написано ниже}
 while s[length(s)]=' ' do delete(s,length(s),1);
 writeln(f1,s);
 end;
close(f);
close(f1);
end.