Program pr7;
uses crt;
type matr=array [1..10,1..10] of integer;
ooo = object;
n,m:byte;
a:matr;
procedure Vvod(n,m:byte);
procedure vivod;
function sum_m: integer;
end;

var x,y,z:ooo;


procedure ooo.vvod;
var i,j:byte;
begin
 for i:=1 to n do
  for J;=1 to m do
  a[i,j]:=random(20);
end;


procedure ooo.vivod;
var i,j:byte;
begin
for i:=1 to n do
 begin writeln;
  for j:=1 to m do
  write(a[i,j]:6:0);
 end;
end;


function ooo.sum_m: integer;
var
  i, j: byte;
  Summ, ResSumm: integer;
  IsNegative: boolean;
begin
  ResSumm := 0;

  for j := 1 to n do
  begin
    IsNegative := false;
    Summ := 0;
    i := 0;
    while (i < m) or not IsNegative do
    begin
      if a[i,j] > 0 then
        Summ := Summ + a[i,j]
      else
        IsNegative := true;
      inc(i);
    end;
    if not IsNegative then
      ResSumm := ResSumm + Summ;
  end;
  sum_m := ResSumm;
end;



begin
 clrscr;
x.vvod(5,6);
y.vvod(10,8);
z.vvod(8,7);
 x.vivod;
 y.vivod;
 z.vivod;
writeln;
writeln;
 x.summ;
 y.summ;
 z.summ;
writeln(x.sum_m);
writeln(y.sum_m);
writeln(z.sum_m);
 readln;
end.

function ooo.sum_m;
var
  i, j: byte;
  Summ, ResSumm: integer;
  IsNegative: boolean;
begin
  ResSumm := 0;

  for j := 1 to m do
  begin
    IsNegative := false;
    Summ := 0;
    i := 1;
    while (i <= n) and not IsNegative do
    begin
      if a[i,j] > 0 then
        Summ := Summ + a[i,j]
      else
        IsNegative := true;
      inc(i);
    end;
    if not IsNegative then
      ResSumm := ResSumm + Summ;
  end;
  sum_m := ResSumm;
end;

Program pr7;
uses crt;
type matr=array [1..10,1..10] of integer;
ooo = object
m,n: byte;
a:matr;
procedure Vvod(size_n,size_m: byte);  //исправила
procedure vivod;
procedure sum_m;
end;

var x,y,z:ooo;

procedure ooo.vvod;
var i,j:byte;
begin
 n:=size_n;
 m:=size_m;
 for i:=1 to n do
  for J:=1 to m do
  a[i,j]:=random(20)-5;
end;

procedure ooo.vivod;
var i,j:byte;
begin
for i:=1 to n do
 begin writeln;
  for j:=1 to m do
  write(a[i,j]:6);
 end;
writeln;
end;

procedure ooo.sum_m;
var
  i, j: byte;
  Summ: integer;
  IsNegative: boolean;
begin

  for j := 1 to m do
  begin
    IsNegative := false;
    Summ := 0;
    i := 1;
    while (i <= n) and not IsNegative do
    begin
      if a[i,j] > 0 then
        Summ := Summ + a[i,j]
      else
        IsNegative := true;
      inc(i);
    end;
    if not IsNegative then write(Summ:6);
  end;
  writeln;
end;

begin
  clrscr;
  randomize;
  x.vvod(5,6);
  y.vvod(10,8);
  z.vvod(8,7);
  x.vivod;
  y.vivod;
  z.vivod;
  x.sum_m;
  y.sum_m;
  z.sum_m;
  readln;
end.

procedure Vvod(size_m,size_n: byte);

      if a[i,j] > 0 then

      if a[i,j] >= 0 then

procedure sum_m;
  function IsNegative({передаешь номер текущего столбца}): boolean;
    begin
       {здесь идет проверка конкретного столбца наличие отрицательных элементов.
         если они есть, то функция принимает значение true, если нет - false
        }
    end;
begin
 for j:=1 to m do
   if not IsNegative(j) then
     {считаешь и выводишь сумму}
end;
{это краткий набросок}