Массивы. Для одномерного массива, размерность которого вводится с клавиатуры, вычислить значение В=(X+Z)/(Y+2) X — количество элементов, лежащих в интервале (-3 ; 4);Y — сумма элементов массива с четными номерами;Z — номер первого нулевого элемента массива — Pascal(Паскаль)

uses crt;
const n=10;
var a:array[1..n] of integer;
    i,x,z,y:integer;
    b:real;
 begin
  ClrScr;
  Writeln('Введите массив...');
   for i:=1 to n do
    begin
     Write('a[',i,']->');
     Readln(a[i]);
    end;
  for i:=1 to n do
   if (a[i]>-3) and (a[i]<4) then
   x:=x+1;
  for i:=1 to n do
   if i mod 2=0 then
    y:=y+a[i];
  for i:=1 to n do
   if a[i]=0 then
    z:=i;
  for i:=1 to n do
   b:=(x+z)/(y+2);
  Writeln('Ответ ',b:2:2);
 Readln;
 end.