Дан массив А(N). Определить количество нечетных и отрицательных элементов массива. Изменить знак у элементов. Вывести исходный и преобразованный массив и количество элементов.

Помогите, пожалуйста. В двумерном массиве В[1..6,1..6], полученном случайным образом и содержащем положительные и отрицательные числа, найти сумму элементов первого столбца, если полученная сумма больше суммы элементов главной диагонали, то создать одномерный массив, в который записать максимальные элементы строк исходного массива, в противном случае определить среднее арифметическое положительных и отрицательных чисел массива В.

uses  SysUtils,Windows;var a:array of Integer;    i,n,s,o:Integer;begin  o:=0;  s:=0;  SetConsoleOutputCP(1251);  Randomize;  write('Введите "N": ');  readln(n);  SetLength(a,n);  for i:=0 to Length(a) do   begin     a[i]:=Random(10)-5;     write(a[i]:3);   end;   Writeln;    Writeln;  for i:=0 to Length(a) do   begin     if a[i] mod 2=1 then      Inc(s);     if a[i]<0 then      Inc(o);     a[i]:=a[i]*(-1);   end;   Writeln('Кол-во отрицательных элементов: ',o);   Writeln('Кол-во нечетных элементов: ',s);    Writeln;   for i:=0 to Length(a) do     write(a[i]:3);  readln;end.