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

var f,f1:text;s:string;beginassign(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.