Найти количество чётных чисел в тех строках файла, которые начинаются числом 111 - Turbo Pascal

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

Найти общее количество чётных чисел в тех строках данного текстового файла, которые начинаются числом 111

Решение задачи: «Найти количество чётных чисел в тех строках файла, которые начинаются числом 111»

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

var
  t : text;
  a, k : integer;
begin
  assign(t,'Input.txt');
  reset(t);
 
  k:=0;
 While not Eof(t) do begin
    read(t,a);
 
    If a=111 then
    While not Eoln(t) do begin
      read(t,a);
      If not odd(a) then inc(k);
    end else readln(t);
 
  end;
 
  writeln('Количество чётных чисел ',k);
  readln;
end.

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

В начале объявляются переменные: t - текст, a и k - целые числа.
Затем задается имя файла для чтения - 'Input.txt'.
С помощью функции reset(t) файл готов к чтению.
Переменная k инициализируется нулем.
Запускается цикл While не Eof(t) do, который будет выполняться до конца файла.
Внутри цикла считывается число a из файла.
Если число a равно 111, то начинается вложенный цикл While не Eoln(t) do, который будет выполняться до конца строки.
Внутри вложенного цикла считывается число a из файла.
Проверяется, является ли число a нечетным. Если нет, то увеличивается значение переменной k на единицу.
По завершении вложенного цикла для числа a, возвращаемся к основному циклу.
Если до конца строки не было нечетных чисел (т.е. все числа были четными), то считывается последняя строка файла с помощью функции readln(t).
По завершении основного цикла выводится сообщение с количеством четных чисел, которое сохранено в переменной k.
Вызывается функция readln для выхода из программы.