Задачка

Здравствуйте форумчане.
Прошу вашей помощи так как своего ума не хватает догнать зделаную мной ошибку в задаче которую я опишу вам ниже.
Дана задача :

Даны 2 массива: Х из n элементов и У из m элементов(n, m<=15). Найти количество элементов массива Х, не лежащих в диапазоне от 0 до 10, и количество элементов массива У, не лежащих в диапазоне от 1 до 5. Для нахождения количества элементов, не лежащих в диапазоне от А до В использовать подпрограмму функцию

В общем программу то я написал:



Program Task24;Блок-схема:

Type

Massiv = Array [1..15] of Integer;

Procedure Input_Array (Var c : Massiv; k : Integer);

Var

i : Integer;

Begin

Writeln ('Введите элементы массива из ',k,' элементов');

For i:=1 to k do

begin

Write ('Элемент [',i,']=');

Readln(c);

end;

End;

Procedure Output_Array ( c : Massiv; k : Integer);

Var

i : Integer;

Begin

Writeln ('Массив из ',k,' элементов:');

For i:=1 to k do

Write(c:8);

Writeln;

End;

Function kol_vo (c : Massiv; k,a,b : Integer) : Integer;

Var

i : Integer;

Begin

kol_vo:=0;

For i:=1 to k do

if (c<a) or (c>b) then

kol_vo:=kol_vo+1;

End;

Var

x,y : Massiv;

n,m : Integer;

Begin

Write('n=');

Readln(n);

Writeln ('Массив X:');

Input_Array(x,n);

Output_Array(x,n);

Writeln ('Массив Y:');

Write('m=');

Readln(m);

Input_Array(y,m);

Output_Array(y,m);

Writeln ('Количество элементов в массиве X не лежащих в диапазоне от 0 до 10 :',kol_vo(x,n,0,10));

Writeln ('Количество элементов в массиве Y не лежащих в диапазоне от 1 до 5 :',kol_vo(y,m,1,5));

Readln;

End.




Но я не понимаю какая именно ошибка...
Паскаль выдаёт ошибку в этом месте :
kol_vo:=kol_vo+1;

Требует поставить "(" я перепробовал во всевозможных вариантах поставить эти скобки но прграмма так и не заработала.
Помогите кто знает...