Как написать на языке паскаль общую программу "слова-перевёртыши" а не для единичного случая?

// PascalABC.Net 3.0, сборка 1064
var
  i:integer;
  s:string;
begin
  Write('Введите строку: '); Readln(s);
  Write('Перевертыш: ');
  for i:=Length(s) downto 1 do Write(s[i]);
  Writeln
end.

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