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

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.