Помогите написать програму, которая поворачивает слово, если оно имеет чётное количество букв!!!!Заранее СПАСИБО!!!!

 

var s,s2:string;
i:integer;
begin
readln(s);
s2:=s;
if length(s) mod 2=0 then begin
for i:=1 to length(s) do
s2[i]:=s[length(s)-i+1];
writeln(s2);
end;
readln;
end.