Проверка правильности расстановки скобок в тесте программы - Pascal ABC

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

Ребят вот помогите почему то выдает ошибку это Pascal ABC

var
h,m,k:integer;
f1:text;
begin
h:=0; m:=0;
assign(f1,'D:\pr1.txt');
reset(f1);
while not (eof(f1)) do
begin
k:=pos('(','D:\pr1.txt');
h:=h+1;
k:=pos(')','D:\pr1.txt');
m:=m+1;
end;
close(f1);
writeln(h);
writeln(m);
end.

Суть задачи: В файле содержится программе на Паскале, каждый оператор записан с новой строки. Определить правильно ли расставлены в ней операторные скобки. То есть по логике я ищу символы открытия и закрытия операторных скобок и сравниванию их количество на каждой строке...

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

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

assign(f1,'D:\pr1.txt');

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

Открывается файл 'pr1.txt' для чтения (режим 'r').
В цикле читаются строки из файла 'pr1.txt' до тех пор, пока не будет достигнут конец файла.
Для каждой прочитанной строки выполняется следующая последовательность действий:
- Строка проверяется на наличие символов '(' и ')'.
- Если символы '(' и ')' отсутствуют, то выводится сообщение об ошибке (при условии, что значение переменной err равно 0).
- Если символы '(' присутствуют, но отсутствуют ')', то значение переменной err устанавливается равным 1.
- Если символы ')' присутствуют, но отсутствуют '(', то значение переменной err устанавливается равным 2.
- Если символы '(' и ')' присутствуют и находятся в правильной последовательности, то значение переменной err устанавливается равным 0.
Закрывается файл 'pr1.txt'.
Выводится значение переменной err.