подредактировать . Двухмерные массивы

[lilia2121]

Дана матрица А(6,6) Найти число столбцов, в которых положительных элементов больше чем отрицательных. Если таких столбцов больше трёх, заменить все отриц. элементы матрицы на заданное значение Р

program matr;
uses crt;
var a:array [1..6,1..6] of integer;
    h,p,l,k,i,j:integer;

begin clrscr;randomize;

for i:=1 to 6 do begin
 for j:=1 to 6 do begin
  a[i,j]:=random(30)-4; write(a[i,j]:4); end; writeln; end;
   h:=0;
  for j:=1 to 6 do begin k:=0;l:=0;
   for i:=1 to 6 do begin
    if a[i,j]<0 then inc(k) else inc(l); end;
    if k<l then inc(h);
    write('-',k,' +',l); end;
    writeln;writeln(h);

    if h>3 then begin readln(p);
     for i:=1 to 6 do begin
      for j:=1 to 6 do
        if a[i,j]<0 then a[i,j]:=p;end;end
             else writeln('Stoblcov <3 ');

        for i:=1 to 6 do begin
         for j:=1 to 6 do
         write(a[i,j]:4); writeln; end;
readkey
end.

Вроде всё верно, только прежде чем наращивать на единицу, нужно осуществить отдельный подсчет полож. и отриц. элементов Помогите пожалуйста

[ROMA2PVT]

program matr;
uses
   crt;
var
    a:array [1..6,1..6] of integer;
    h,p,l,k,i,j:integer;
begin
clrscr;
randomize;
for i:=1 to 6 do
begin
 for j:=1 to 6 do
 begin
  a[i,j]:=random(30)-4;
  write(a[i,j]:4);
  end;
  writeln;
  end;
   h:=0;
  for j:=1 to 6 do
  begin
  k:=0;
  l:=0;
   for i:=1 to 6 do
   begin
    if a[i,j]<0 then inc(k) else inc(l);
    end;
    writeln('В столце ',j,'-ом: -',k,' +',l);
    if k<l then inc(h);
    end;
    writeln;
    writeln('Количество столбцов в которых +>-: ',h);
    if h>3 then
    begin
    readln(p);
     for i:=1 to 6 do
     begin
      for j:=1 to 6 do
        if a[i,j]<0 then a[i,j]:=p;
        end;
        end
             else writeln('Stoblcov <3 ');
        for i:=1 to 6 do
        begin
         for j:=1 to 6 do
         write(a[i,j]:4);
         writeln;
         end;
readkey
end.

У вас накопление положительных и отрицательных по каждому столбцу идёт до того как подсчитывается количество столбцов в которых +>-

[lilia2121]

спасибо огромное *