1. nhập 2 xâu S1, S2 vào bàn phím 3. Cho biết xâu S2 có phải là đảo ngược của xâu S1 không. Ghi kết quả vào tệp đã cho ? Giúp mk vs huhu

var s1,s2,s:string;f:text;i:longint;

begin 

assign(f,'tepcuaban');rewrite(f);

read(s1);read(s2);

for i:=length(s2) downto  1 do s:=s+s2[i];

if s1=s then write(f,'CO') else write(f,'KHONG');

end.

uses crt;
var s1,s2,s : string;
i, j : integer;
begin
assign(input,'KQ.TXT');
assign(output,'KQ.OUT');
reset(input); rewrite(output);
readln(input,s1);
read(input,s2);
writeln(output,length(s1));
write(output,length(s2));
s:='';
for i:=length(s1) downto 1 do s:=s+s1[i];
if s=s2 then write(output,'Hai xau dao nguoc nhau');
close(input); close(output);
readln
end.