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

// 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. Тестовое решение: Введите строку: Леша на полке клопа нашел Перевертыш: лешан аполк еклоп ан ашеЛ