Напечатать строки файла, имеющие нечетную длину, подсчитав их количество - Free Pascal

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

Дано текстовый файл, разбитый на строки. Напечатать строки, имеющие нечетную длину, подсчитав их количество.

Решение задачи: «Напечатать строки файла, имеющие нечетную длину, подсчитав их количество»

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

k:=0;
while not eof(f) do
 begin
  readln(f,s);
  if length(s) mod 2<>0 then
   begin
    writeln(s);
    k:=k+1;
  end;
 end;
close(f);
write('Количество строк нечетной длины=',k);

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

Объявляется переменная k типа целое и инициализируется значением 0.
Запускается цикл while, который будет выполняться до тех пор, пока не достигнется конец файла (eof).
Внутри цикла считывается строка из файла в переменную s с помощью функции readln.
Проверяется условие length(s) mod 2<>0, которое проверяет, является ли длина строки s нечетной.
Если условие выполняется, то выводится строка s с помощью функции writeln.
К переменной k прибавляется единица, увеличивая счетчик на 1.
По завершении цикла while, файл закрывается с помощью функции close.
Выводится сообщение с помощью функции write, в котором указывается количество строк нечетной длины, используя переменную k.