Подсчет количества операторов в одномерном массиве

[inc1uder]

Спасибо за помощь)

[inc1uder]

Вообщем получилось так, но почему-то считаются только точки с запятыми, от чего не пойму...

uses CRT;
var b,e,g,i,n:integer;
f:text;
s:string;
begin
clrscr;
n:=0;
assign(f,'C:\1.PAS');
reset (f);
while not eof(f) do begin
readln(f,s);
for i:=1 to length(s) do
if s[i]=';' then n:=n+1;
if s[i]='begin' then b:=b+1;
if s[i]='end;' then e:=e+1;
if (b = e) then g:=b
else 
g:=0;
writeln(s);
end;
writeln(n);
writeln('количество групп ',g,b,e);
close (f);
readln
end.

[Serge_Bliznykov]

во-первых, begin end забыли после цикла забыли
во-вторых, s[i] - это ОДИН символ строки, его нельзя стравнивать ни с 'BEGIN' ни с 'END'