помогите решить задачу на массив

program Project2;
 
type vector = array[1..1000] of integer;
var 
    a,b:vector;
    n,k,i:integer;
 avg : real;
procedure ShowArray(a:vector;n:integer);
var i:integer;
begin
    for i:=1 to n do 
  begin
    write(a[i]:4);
 end;
 writeln;
end;
procedure InitArray(var a:vector;n:integer);
var i:integer;
begin
for i:=1 to n do 
  begin
     write('a[',i,']=');
     readln(a[i]);  
 end;
end;
procedure OtritsElement(const a:vector;n:integer;var avg:real;var count:integer);
var i:integer;
 
begin
    count := 0;
    
    for i:=1 to n do 
    begin
        if(a[i] < 0) then
        begin
            inc(count);
            avg := avg + a[i];
        end;
    end;
    avg := avg/count;
end;
begin
write('n=');readln(n);
 InitArray(a,n);
 ShowArray(a,n);
OtritsElement(a,n,avg,k);
 if (k = 0) then
  writeln('Net otritsatelinih cisel')
  else
  begin
    writeln('Srednee arifm avg =',avg:8:2);
    writeln('Kol-vo otrits cisel =',k);
  end;
 readln;
end.

program Project2;
uses
 crt;
type vector = array[1..1000] of integer;
matrix = array[1..100]of vector;
var 
    a:vector;
    i,n:integer;
procedure ShowArray(a:vector;n:integer);
var i:integer;
begin
    for i:=1 to n do 
  begin
    write(a[i],' ');
 end;
 writeln;
end;
procedure InitArray(var a:vector;n:integer);
var i:integer;
begin
for i:=1 to n do 
  begin
    a[i] := random(100) -50;    
 end;
end;
procedure BubleSort(var a:vector;n:integer);
var i,j:integer;
temp:integer;
begin
    for i:=1 to n do
       for j:= 1 to n - i do
       begin
       if (a[j] >= a[j+1]) then
       begin
            temp := a[j];
            a[j] := a[j+1];
            a[j+1] := temp;
       end;
     end;
end;
 
begin
 write('n=');readln(n);
 InitArray(a,n);
 writeln('Ishodnii massiv');
 ShowArray(a,n);
 writeln('Otsortirovannii massiv');
 BubleSort(a,n);
  ShowArray(a,n);
  readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.