задача на массивю где-то ошибка. Опции

[torok]

в задаче требуется ввести массив и в процедуре обнулить те элементы, которые попадают в заданный интервал. как решать мне ясно, но на шаге выполнения процедуры всплывает ошибка 54 - "требуется ввести of" хотя он вроде на месте... вот код.

program massiv2;
 var x,i,y: integer; 
 const n=3;
 var a,b,c : array [1..n] of integer;
procedure p (var z: array[i] of integer);   <== вот здесь высвеч-ся ошибка 54
begin
  z[i]:=0;
 end;
 begin
  writeln('vvedite granici diapazona');
   for i:=1 to n do
    begin
   read(x,y);
  writeln('vvedite elementi massiva a');
   read(a[i],b[i],c[i]);
  if (a[i]>=x) and (a[i]<=y) then p(a[i]);
  end;
for i:=1 to n do
 begin
  writeln('znachnija elementov preobrazovannogo massiva a   ',i,'  ',a[i]);
 end;
end.