массивы паскаль

[rein95]

Дана целочисленная квадратная матрица. Вывести ее на экран и определить сумму элементов тех столбцах, которые не содержат отрицательных элементов.

помогите пожалуйстаааааааааа
напишите программу на паскале

[N.i.k.o.l.a.y.]

За деньги без проблем(за небольшую плату, на мобильный кинете)) пишите договоримся n.i.k.96@mail.ru

[interacia]

program Matrix0;
var
K,j,i,N:integer;
bol:boolean;
A: array [1..4,1..4] of integer;
begin
N:=4;
A[1,1]:=0; A[1,2]:=1;  A[1,3]:=2; A[1,4]:=5;
A[2,1]:=2; A[2,2]:=-9; A[2,3]:=3; A[2,4]:=9;
A[3,1]:=-3;A[3,2]:=10; A[3,3]:=4; A[3,4]:=-3;
A[4,1]:=1; A[4,2]:=20; A[4,3]:=1; A[4,4]:=1;

 for i:=1 to N do begin
writeln;
 for j:=1 to N do write(a[i,j]:3);
 end;
writeln;
 for i:=1 to N do
   begin
   k:=0;
   bol:=false;
    for j:=1 to N do
     begin
      inc(k,a[j,i]);
      if a[j,i]<0 then  bol:=true;
     end;
if bol then writeln('сумма ',i,' столбца равна ',K);
   end;
end.