Паскаль, файлы

[shrek=)]

Паскаль, файлы

Дан текстовый файл, содержащий программу на ПАСКАЛЬ. Проверить ее на соответствие открывающихся и закрывающихся скобок. Указать номера строк, где скобки расставлены не верны.


Вот, что есть у меня!

var
s:string;
i,k,o,z:integer;
f:text;
begin
k:=0;
o:=0;
z:=0;
assign (f,'c:/program.pas');
reset(f);
while not(eof(f)) do begin
while not(eoln(f)) do begin
read(f,s);
inc(k);
for i:=1 to length(s) do begin
if s[i]='(' then inc(o);
if s[i]=')' then inc(z);
end;
if o<>z then write(k:3);
end;
s:='';
end;
close(f);
readln
end.

 

[shrek=)]

Вопрос снят! Вот ошибки:

var
s:string;
i,k,o,z:integer;
f:text;
begin
k:=0;
o:=0;
z:=0;
assign (f,'c:/program.pas');
reset(f);
while not(eof(f)) do begin
while not(eoln(f)) do begin
[COLOR=Red]readln(f,s);[/COLOR]
inc(k);
for i:=1 to length(s) do begin
if s[i]='(' then inc(o);
if s[i]=')' then inc(z);
end;
if o<>z then write(k:3);
[COLOR=Red]o:=0;
z:=0;[/COLOR]
end;
s:='';
end;
close(f);
readln
end.