[Pascal]_Формулировка задачи_файлы

Program FileString;
Uses
  Crt;
Var
  f, g : file of string;
  str1, str : string;
  i : integer;
Begin
  ClrScr;
  assign(f,'f');
  rewrite(f);
  assign(g,'g');
  rewrite(g);
  repeat
    readln(str);
    write(f,str);
    for i:=length(str) downto 1 do
      str1:=str1+str;
    write(g,str1);
    str1:='';
  until str='';
  close(f);
  close(g);
  assign(f,'f');
  reset(f);
  assign(g,'g');
  reset(g);
  while not eof(f) do
    begin
      read(f,str);
      writeln(str);
    end;
  while not eof(g) do
    begin
      read(g,str);
      writeln(str);
    end;
  close(f);
  close(g);
  readln;
End.