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

Вам необходимо разъясненье? Найти код в вебе очень легко

Нет, мне нужен именно код. Задач много, не успеваю всё сам написать.

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.