Напечатать в обратном порядке заданную строку - Turbo Pascal

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

Нужно напечатать в обратном порядке заданную строку, Паскаль, рекурсия.

Решение задачи: «Напечатать в обратном порядке заданную строку»

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

procedure reverse(s:string;k:byte);
begin
write(s[k]);
if k>1 then reverse(s,k-1);
end;
var s:string;
    n:byte;
begin
  writeln('Введите строку');
  readln(s);
  n:=length(s);
  reverse(s,n);
  readln
end.

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

В начале объявляются необходимые переменные: s (строка), n (байт), k (индекс).
Затем идет приглашение пользователю ввести строку.
Строка считывается в переменную s с помощью функции readln.
Переменная n инициализируется значением длины строки s с помощью функции length.
Вызывается процедура reverse, которая печатает символы строки в обратном порядке.
Если k больше 1, то вызывается рекурсивно процедура reverse для оставшейся части строки, уменьшая значение k на 1.
Программа завершается вызовом функции readln.