Cho dữ liệu trong file input.txt gồm số dòng không rõ, đảo ngược các dòng và xuất ra file ketqua.txt

bt3.pas

program string_reverse;
uses crt;
var t, tout: text;
    s, s2: widestring;
    i: longint;
begin
 clrscr;
 assign(t, './input.txt');
 reset(t);
 assign(tout, './ketqua.txt');
 rewrite(tout);
 while not eof(t) do begin
  readln(t, s);
  for i:=length(s) downto 1 do s2:=s2+s[i];
  writeln(tout, s2);
  s2:='';
 end;
 close(t);
 close(tout);
 write('Xong');
 readkey;
end.