Viết chương trình nhập vào 2 xâu đưa ra độ dài xâu thứ nhất và in đảo ngược xâu thứ 2 Giúp mình với ạ

program bai_xau;

uses crt;

var s1,s2:string;

     i:byte;

begin

       clrscr;

       write(‘Nhap xau thu nhat: ‘);  readln(s1);

       write(‘Nhap xau thu hai: ‘);  readln(s2);

       writeln(‘Do dai xau thu nhat la: ‘,length(s1));

       write(‘Xau dao nguoc cua xau thu hai la: ‘);

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

       readln;

end.