Вывести вторую и предпоследнюю строки файла - Turbo Pascal

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

Ввести вторую и предпоследнюю строки файла. Если в файле только одна строка, то выводить сообщения нет решения

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

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

procedure Error; begin WriteLn('Нет решения'); Halt; end;
var a, b: String;
begin
  Assign(input,'input.txt'); Reset(input);
  if EOF then Error else ReadLn(a);
  if EOF then Error else ReadLn(b);
  WriteLn(b);
  while not EOF do begin
    a:=b; ReadLn(b);
  end;
  WriteLn(a);
end.

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

В процедуре Error происходит вывод сообщения «Нет решения» и остановка выполнения программы.
Переменные a и b объявлены как строки.
С помощью функции Assign файл input был прикреплен к переменной input.
Функция Reset сбрасывает файл input, чтобы можно было начать чтение заново.
Если файл пуст (EOF), то вызывается процедура Error.
Если файл не пуст, то считывается первая строка в переменную a, а затем вызывается процедура ReadLn, которая считывает следующую строку в переменную b.
Строка b выводится на экран.
Запускается цикл while, который выполняется до тех пор, пока файл не будет пуст.
Внутри цикла переменная a меняется на переменную b, а затем вызывается функция ReadLn, чтобы прочитать следующую строку в переменную b.
После выхода из цикла переменная a выводится на экран.