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

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

program Pr485;
var
  fp, f : text;
  s, a : string;
  i : integer;
begin
  assign(fp,'f.txt');
  reset(fp);
  assign(f,'g.txt');
  rewrite(f);
  read(fp,s);
  a:='';
  for i:=length(s) downto 1 do
    a:=a+s[i];
  write(f,a);
  close(fp);
  close(f);
end.