Помогите пожалуйста!

[Odisseya]

1. Ввести массив из N чисел, положительных и отрицательных. Посчитать количество отрицательных элементов этого массива.
2. Ввести массив из N чисел, положительных и отрицательных. Посчитать сумму нечетных элементов этого массива.
3. Сгенерировать массив из N случайных чисел, положительных и отрицательных. Вывести на одной строчке. Найти минимальный и максимальный элементы массива и их индексы. Вывести с соответствующими сообщениями на разных строчках. Вычислить разность абсолютных величин min и max, вывести с соответствующим сообщением.
4. Сгенерировать массив из Q случайных положительных и отрицательных чисел. Проверить, сколько раз встречается в массиве введенное с клавиатуры число. Вывести. Если не встречается, - вывести соответствующее сообщение.

[DM_bite]

1.

program Xd;
const n=10;
var a:array [1..n] of integer;
    i,sum: integer;
    begin
    sum:=0;
    for i:= 1 to n do
     begin
     ReadLn(a[i]);
     if a[i]<0 then inc(sum, a[i]);
     end;
     ReadLn;
     WriteLn(sum);
     end.

2.

program Xd;
const n=10;
var a:array [1..n] of integer;
    i,sum: integer;
    begin
    sum:=0;
    for i:= 1 to n do
     begin
    ReadLn(a[i]);
     if  not(i mod 2 =0) then inc(sum, a[i]);
     end;
     ReadLn;
     WriteLn(sum);
     end.

3.

program xd;
const n=10;
var x:array [1..n] of integer;
    i,max,min,a,maxi,mini: integer;
    begin
    randomize;
    max:= 1;
    min:= 1;
    for i:= 1 to n do
     begin
     x[i]:= -n+random(n+3);
     Write(x[i],'_ ');
     end;
     for i:= 1 to n do
      begin
      if max<x[i] then
      begin
       max:= x[i];
       maxi:= i;
       end;
      if min>x[i] then
      begin
       min:= x[i];
       mini:= i;
       end;
       end;
       WriteLn;
       WriteLn('max=',max,'__&_index=',maxi);
       WriteLn('min=',min,'__&_index=',mini);
       WriteLn('abs_=',abs(min)-abs(max));
       ReadLn;
       end.

и 4.

program Xd;
const n=10;
var a:array [1..n] of integer;
    i,k,number: integer;
    begin
    randomize;
    WriteLn('Vvedite chislo');
    ReadLN(number);
    for i:= 1 to n do
     begin
     a[i]:= -n+random(n+2);
     Write(a[i],'__');
     if number=a[i] then inc(k);
     end;
     if number>0 then WriteLn('Chislo_',number,'__vstrechaetsya__',k,'_raz')
else WriteLn('Chislo_',number,'__ni_razy_ne_vstrechaetsya');
ReadLn;
end.

[Odisseya]

Спасибо БОЛЬШОЕ=)