Подсчитать количество строк, в которых вторым стоит символ «+», а предпоследним «-» - Pascal

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

Дан текстовый файл. Подсчитать количество строк, в которых вторым стоит символ «+», а предпоследним «-».

Решение задачи: «Подсчитать количество строк, в которых вторым стоит символ «+», а предпоследним «-»»

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

var
s:string;
i, k: integer;
f:text;
begin
assign(f,'input.txt');reset(f);
k:=0;
while not Eof(f) do
    begin
    readln(f,s);
    if (s[2] = '+') and (s[length(s)-1] = '-')
       then
          inc(k);
    end;
writeln('Количество искомых строк в файле: ',k);
close(f);
end.

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

Объявление переменных:
- s: строковая переменная для хранения каждой строки из файла
- i, k: целочисленные переменные
- f: файловая переменная
Открытие файла:
- Открывает файл input.txt для чтения
Инициализация счетчика:
- k устанавливается в 0 для подсчета строк, удовлетворяющих условию
Чтение и анализ строк:
- while not Eof(f) do: Цикл выполняется, пока не достигнут конец файла
  - Считывает строку из файла в переменную s
  - Проверяет условие: если второй символ равен '+' и предпоследний символ равен '-', то увеличивает счетчик k на 1
Вывод результата:
- Выводит количество строк удовлетворяющих условию в виде текстового сообщения вместе с числом k
Закрытие файла:
- Закрывает файл для чтения Этот код открывает файл input.txt, читает строки из файла, и проверяет каждую строку на соответствие условию. После обработки всех строк выводит количество строк, удовлетворяющих условию.