Дан массив положительных и отрицательных чисел. Вывести количество…

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.