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

Question

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

Comments

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

---

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

Answer 1

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.