Создать и заполнить текстовый файл f Записать строки файла f в файл g в перевернутом виде

const
  fname = 'f.txt';
  gname = 'g.txt';
var
  f, g: Text;
  s, r: string;
  c: char;
  i, j, m, n: integer;
begin
  assign(f, fname);
  rewrite(f);
  writeln('Введите строки файла ', fname, ', конец ввода - пустая строка:');
  repeat
    readln(s);
    if s <> '' then writeln(f, s)
  until s = '';
  close(f);
  reset(f);
  assign(g, gname);
  rewrite(g);
  writeln('a - переписать перевёрнутые строки в прямом порядке');
  writeln('b - переписать перевёрнутые строки в обратном порядке');
  write('Ваш выбор: ');
  readln(c);
  case c of
    'a':
      while not EoF(f) do
        begin
          readln(f, s);
          r := '';
          for j := length(s) downto 1 do r := r + s[j];
          writeln(g, r)
        end;
    'b':
      begin
        n := 0;
        while not EoF(f) do
          begin
            readln(f);
            inc(n)
          end;
        for m := n downto 1 do
          begin
            reset(f);
            for i := 1 to m - 1 do readln(f);
            readln(f, s);
            r := '';
            for j := length(s) downto 1 do r := r + s[j];
            writeln(g, r)
          end
      end;
    else writeln('Неверный выбор, файл ', gname, ' не создан');
  end;
  close(f);
  close(g);
  if c in ['a', 'b'] then
    begin
      reset(g);
      writeln;
      writeln('Содержимое файла ', gname, ':');
      while not EoF(g) do
        begin
          readln(g, s);
          writeln(s)
        end;
      close(g)
    end;
  readln
end.