Дан текстовый файл. Подсчитать количество строк…

var str: string; a, b: char; count: integer; beginassign (input, 'file.txt'); reset (input); while not eof dobegin 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.