составьте программу для получения слова перевёртыша в паскаль (пример: школа- алокш или алла- алла

// PascalABC.Netvar  s1,s2:string;  i:byte;begin  Write('Введите слово '); Readln(s1);  s2:='';  for i:=length(s1) downto 1 do s2:=s2+s1[i];  Writeln('Перевертыш: ',s2)end.Тестовое решение:Введите слово школаПеревертыш: алокш