Viết chương trình nhập xâu S từ bàn phím sau đó ghi xâu S vào tệp out.txt theo chiều ngược lại Làm hộ mk với ạ

var S: string;

d,i: byte;

begin

write('S= '); readln(s);

For i:= length(s) downto 1 do write(s[i]);

writeln;

while s[length(s)]=#32 do delete(s,length(s),1);

while pos(#32#32,s)<>0 do delete(s,pos(#32#32,s),1);

while s[1]=#32 do delete(s,1,1);

d:=0;

for i:=1 to length(s) do d:=d+1;

write('So tu :',d);

readln

end.

Program bai_giai;
uses crt;
var f:text;
    S,X:string;
    i:byte;
begin
    clrscr;
    write('Nhap xau: ');  readln(S);
    Assign(f,'out.txt');  rewrite(f);
    X:='';
    for i:=length(S) downto 1 do
        X:=X+S[i];
    write(f,X);
    close(f);
end.