Вывести строку, содержащую те же символы, но расположенные в обратном порядке - Turbo Pascal (30417)

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

Задано строку. Вывести строку, содержащую те же символы, но расположенные в обратном порядке.

Решение задачи: «Вывести строку, содержащую те же символы, но расположенные в обратном порядке»

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

function StrRev(s: String): String;
var i, j: Integer; t: Char;
begin
  i:=1; j:=Length(s);
  while i<j do begin
    t:=s[i]; s[i]:=s[j]; s[j]:=t; Inc(i); Dec(j);
  end;
  StrRev:=s;
end;

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

В функции StrRev объявлены три переменные: i, j и t. Переменная i инициализируется значением 1, а переменная j - значением Length(s), где s - это входной параметр функции.
Затем в цикле while выполняются следующие действия:
- i увеличивается на единицу.
- j уменьшается на единицу.
- значение переменной t присваивается значению s[i].
- значение переменной s[i] присваивается значению s[j].
- значение переменной s[j] присваивается значению t.
- После выполнения этих действий значение переменной i увеличивается на единицу, а значение переменной j уменьшается на единицу.
Когда цикл while завершается, значение переменной StrRev присваивается значению s.
Функция StrRev возвращает строку, в которой символы расположены в обратном порядке.