Введенную строку вывести в обратном порядке - Pascal

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

Помогите с решением задачи. Введенную строку вывести в обратном порядке (с последней буквы начинается и первой заканчивается) Формат ввода В входном файле с именем "changeling.in" записана строка текста. Гарантируется, что в строке не более 1000 символов, включая пробелы, а также текст состоит только из букв латинского алфавита нижнего регистра (маленькие буквы) и знаков препинания. Формат вывода В выходной файл с именем "changeling.out" выводится строка текста, удовлетворяющая условию задачи

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

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

const fname='changeling';
var
  f: Text;
  s: array [0..1000] of Char;
  i: Integer;
begin
  Assign(f,fname+'.in'); Reset(f);
  ReadLn(f,s); Close(f);
  Assign(f,fname+'.out'); Rewrite(f);
  i:=0; while s[i]<>#0 do Inc(i); Dec(i);
  for i:=i downto 0 do Write(f,s[i]);
  WriteLn(f); Close(f);
end.

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

Объявляется константа fname со значением changeling, которая предположительно указывает на имя файла.
Объявляются переменные:
- f как тип Text - предположительно для работы с файлом
- s как массив символов (Char) длиной 1001
- i как целочисленная переменная
Открывается файл для чтения, считывается строка из файла в массив s и файл закрывается. Это предположительно происходит для чтения данных из входного файла с именем changeling.in.
Открывается файл для записи и очищается содержимое. Это для записи данных в выходной файл с именем changeling.out.
Инициализируется переменная i значением 0, затем в цикле while происходит поиск конца строки в массиве s (0-terminator) и переменная i увеличивается до тех пор, пока не будет найден конец строки. После этого i уменьшается на 1, чтобы получить индекс последнего символа в строке.
В цикле for происходит вывод каждого символа строки в обратном порядке в файл f.
Добавляется переход на новую строку в файле f.
Файл f закрывается. Если предположить, что код написан на языке Pascal, то можно сделать вывод, что он открывает файл с именем changeling.in, считывает строку из этого файла, затем открывает файл changeling.out и записывает строку в нем в обратном порядке.