3. в массиве из 10 целых чисел определить, сколько значений превышает число 3. собственно сама программа const n=10; var a: array[1..n] of integer; kol,i: integer; begin kol: =0; for i: =1 to n do begin readln(a[i]); if a[i]> 3 then kol: =kol+1; end; writeln; writeln('больших,чем 3=',kol); end. и далее при запуске программы выдает ошибку 201 не подскажите в чем ошибка?

//забыл точку с запятой у begin в цикле
Const n=10;
var ar:array[1..n] of integer;
kol,i:integer;
begin;
kol:=0;
for i:=1 to n do
begin;
readln(ar[i]);
if ar[i]>3 then kol:=kol+1;
end;
writeln;
writeln('больших,чем 3=',kol);
end.
{по крайней мере, у меня данная программа компилируется без проблем. Никакого выхода за границы массива( это и есть, вроде бы, ошибка 201)}