Розв’язок задачі з Абрамова №526

Всі умови | Умова: Дано текстовий файл f. Видалити пробіли, що стоять в кінцях його рядків. Результат помістити в файл f1. (С.А. Абрамов, Г.Г. Гнездилова,Е.Н. Капустина, М.И. Селюн. Задачи по программированию. - Вологда, 2000. - №526)

program Pr526;
var
   i : integer;
   s : string;
   f, f1 : Text;
begin
   assign(f, 'in');
   reset(f);
   assign(f1, 'out');
   rewrite(f1);
   while not eof(f) do
   begin
      readln(f, s);
      while s[length(s)] = ' ' do 
         s := copy(s,1,length(s)-1);
      writeln(f1, s);
   end;
   close(f);
   close(f1);
end.