Составить программу ,которая данное слово запишет в обратном порядке — Pascal(Паскаль)

var
a,b:string;
i:integer;
begin
readln(a);
for i:=1 to length(a) do
b:=a[i]+b;
writeln(b);
end.

var
a:string;
i:integer;
begin
readln(a);
for i:=length(a) downto 1 do
write(a[i]);
end.