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

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

Тестовое решение:
Введите слово школа
Перевертыш: алокш