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

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.