запрашивается слово перевернуть его в обратном порядке
паскаль

var

  str1, str2: string;

begin

  write('Введите слово: ');

  readln(str1);

  for var i := str1.Length downto 1 do

     str2 := str2 + str1[i];

  write('Результат: ', str2);

end.