В заданном текстовом файле изменить порядок следования символов на противоположный - Pascal ABC

Формулировка задачи:

Если в строке написано "привет", то должно вывести "тевирп".

Решение задачи: «В заданном текстовом файле изменить порядок следования символов на противоположный»

Листинг программы

Function StRevers(St : String) : String;
Begin
  If Length(St)>1 then StRevers:=St[Length(St)]+StRevers(Copy(St,2,Length(St)-2))+St[1]
   else StRevers:=St;
end;

Объяснение кода листинга программы

В функции StRevers используется строка St, которая является входным параметром.
Если длина строки St больше 1, то выполняется рекурсивный вызов функции StRevers для Copy(St,2,Length(St)-2)), где Copy(St,2,Length(St)-2)) создает новую строку, содержащую все символы строки St, начиная со второго и заканчивая последним символом, исключая последний символ.
Затем выполняется рекурсивный вызов функции StRevers для строки St[Length(St)]+StRevers(Copy(St,2,Length(St)-2))+St[1], где St[Length(St)]+StRevers(Copy(St,2,Length(St)-2))+St[1] объединяет результат последнего рекурсивного вызова с текущей строкой St.
Если длина строки St равна 1, то функция возвращает исходную строку St без изменений.
В противном случае функция возвращает результат последнего рекурсивного вызова.