ПОМОГИТЕ С PASCAL ABC СРОЧНО 40 БАЛЛОВ.!!!

Дан текстовый файл. Записать все строки файла в новый файл,
изменив порядок следования букв в каждой строке на противоположный. ​

Вот готовое решение задачи на PascalABC.NET.

Код программы:

Объяснение программы:

1. Assign(f1, 'input.txt') — указываем исходный текстовый файл.

2. Reset(f1) — открываем файл для чтения.

3. Rewrite(f2) — создаём новый файл output.txt для записи.

4. while not Eof(f1) do — читаем строки, пока файл не закончится.

5. Readln(f1, s) — считываем очередную строку.

6. for i := Length(s) downto 1 do — перебираем символы строки с последнего до первого.

7. s1 := s1 + s[i] — формируем перевёрнутую строку.

8. Writeln(f2, s1) — записываем результат в новый файл.

9. Close(f1) и Close(f2) — закрываем оба файла.

Пример работы

Исходный файл input.txt:

Результат в файле output.txt:

Итог: программа считывает все строки из исходного текстового файла, переворачивает порядок символов в каждой строке и записывает полученные строки в новый файл. При этом порядок самих строк сохраняется.

Важно: файл input.txt должен существовать и находиться в рабочей папке программы. Файл output.txt будет создан автоматически.