Дан массив положительных и отрицательных чисел. Вывести количество положительных и отрицательных чисел, стоящих на нечетных местах. Срочно!!!

var   k, sum, n, i: integer;   A: array of integer; begin   writeln('Введите размерность массива: ');   readln(n);   SetLength(A, n + 1);   writeln('Введите ', n, ' элементов массива :');   for i := 1 to n do   begin     readln(A[i]);     if i mod 2 <> 0 then     begin       if A[i] > 0 then inc(sum);       if A[i] < 0 then inc(k);     end;   end;   writeln('Кол-во положительных чисел, стоящих на нечетных местах: ', sum);   writeln('Кол-во отрицательных чисел, стоящих на нечетных местах: ', k); end.

uses crt; const Z=5; var a:array [1..Z] of real;     x,k,n:integer; begin      for x:=1 to Z do      begin           readln(a[x]);           if (x mod 2=1) and (a[x]>0) then inc(k);           if (x mod 2=1) and (a[x]<0) then inc(n);      end;      writeln('Положительных: ',k);      writeln('Отрицательных: ',n); end.