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

var

str : string;

a, b : char;

count : integer;

begin

assign (input, 'file. txt'); reset (input);

while not eof do

begin

readln (str);

if length (str) > 1 then a : = str[2]

else a : = '1';

if length (str) > 1 then b : = str[2]

else b : = '1'; / / Заведомо неверные данные

if (a = '+') and (b = '-') then inc (count);

end;

writeln (count);

end.