помогите пожалуйста с решением по информатике программа паскаль​

var str,strnew:string;

i:integer;

begin

readln(str);

i:= str.length;

while i>1 do

begin

strnew := strnew + str[i] ;

i:=i-1;

end;

write(strnew);

end.