Вычислить сумму элементов двумерного массива, расположенных в столбцах, которые содержат только положительные элементы — Pascal(Паскаль)

Program n1;
uses crt;
var a:array[1..10,1..10] of integer;
    i,n,j,k,s,p:integer;
begin
clrscr;
randomize;
write('Vvedite razmernots matrici:'); read(n);
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(10)-3;
write(a[i,j],' ');
end;
writeln;
end;
s:=0;
for j:=1 to n do
begin
k:=0;
for i:=1 to n do
if a[i,j]>0 then k:=k+1;
if k=n then 
 begin
  s:=0;
  for p:=1 to n do
  s:=s+a[p,j];
 end;
end;
writeln('Symma elementov polojitelnih stolbcov=',s);
readkey;
end.