Допишите код, пожалуйста. Завтра последняя пара перед зачетом

var B:array[1..6,1..6] of integer;
i,j:integer;
begin
randomize;
for i:=1 to 6 do begin
writeln;
for j:=1 to 6 do begin
B[i,j]:=-64+random(129);
write(B[i,j]:4);
end;
end;
for i:=1 to 6 do
for j:=1 to 6 do begin
if i mod 2=0 then
if (B[i,j]<0) then B[i,j]:=0;
end;
writeln;
for i:=1 to 6 do begin
writeln;
for j:=1 to 6 do begin
write(B[i,j]:4);
end;
end;
writeln;
readln
end.

uses crt;
const nmax=20;
type mas=array[1..nmax,1..nmax] of integer;
     vect=array[1..nmax*nmax] of integer;
procedure inmatrix(var x:mas;n:integer);
 var i,j:integer;
begin
 for i:=1 to n do
  for j:=1 to n do
   x[i,j]:=-65+random(131);
end;
procedure print(var x:mas;n:integer);
 var i,j:integer;
begin
 for i:=1 to n do
  begin
   for j:=1 to n do
    write(x[i,j]:4);
    writeln;
  end;
end;
procedure sum(var x:mas;n:integer);
 var i,j,s:integer;
begin
 for j:=1 to n do
  begin
   s:=0;
   for i:=1 to n do
    if x[i,j]>=0 then
      s:=s+x[i,j];
      writeln('Ñóììà â ',j,'-îì ñòîëáöå = ',s);
  end;
end;
var a:mas;
    b:vect;
    n,i,j,s,k:integer;
begin
 clrscr;
  repeat
   write('Ïîðÿäîê ìàòðèöè n=');
    readln(n);
  until n in [1..nmax];
  writeln('Èñõîäíàÿ ìàòðèöà :');
   inmatrix(a,n);
   print(a,n);
   sum(a,n);
  for i:=1 to n do
   if a[i,3]>0 then
    s:=s+a[i,3];
  k:=1;
   for i:=1 to n do
    for j:=1 to n do
     if a[i,j] mod 3=0 then
      begin
       b[k]:=a[i,j];
       inc(k);
      end;
  writeln('Ñóììà ïîëîæèòåëüíûõ ýëåìåíòîâ 3-åãî ñòîëáöà = ',s);
   for i:=1 to n do
    begin
     for j:=1 to n do
      if i mod 2=0 then
       a[i,j]:=0;
    end;
   writeln('Ïðåîáðàçîâàííàÿ ìàòðèöà :');
    print(a,n);
   writeln('Ìàññèâ ñ ýëåìåíòîâ êðàòíûõ òðåì :');
   s:=0;j:=0;
    for i:=1 to k-1 do
     begin
      write(b[i]:4);
      if b[i]>=0 then
       s:=s+b[i];
       inc(j);
     end;
   writeln;
   writeln('Ñðåä-òè÷êîå ïîëîæèòåëüíûõ ýëåìåíòîâ = ',s/j:0:2);
 readkey;
end.