Текстовый файл разбить на строки, вывести символы строк в обратном порядке - Turbo Pascal

var i: integer;
    s: string;
    f: text;
begin
  assign(f, 'text.txt');
  reset(f);
  while not eof(f) do
    begin
      readln(f, s);
      for i := length(s) downto 1 do write(s[i]);
      writeln
    end;
  readln
end.