Двумерный целочисленный массив A(m,n) задается с экрана либо генерируется в пределах от -20 до 20. Требуется:

// Сумма столбцов
type
  matrix=array[1..100,1..100] of integer;
  arr   =array[1..100] of longint;
var
  a: matrix;
  M,N: integer; // Количество строк M, количество столбцов N
  b: arr;
  P: integer;   // Количество элементов массива b
  prod: arr;       // Массив сумм, строк двум. массива a
  i,j,K: integer;
  
// Процедура генерации двумерного массива
procedure M_Gener(var x: matrix; M,N: integer);
var
  i,j: integer;
begin
  for i:=1 to M do
    for j:=1 to N do
      x[i,j]:=Random(41)-20;
end;
 
// Процедура вывода двумерного массива
procedure M_Vivod(x: matrix; M,N: integer);
var
  i,j: integer;
begin
  for i:=1 to M do
  begin
    for j:=1 to N do
      write(x[i,j]:4);
    writeln;
  end;
  writeln;
end;
 
// Процедура выбора K-ого столбца из двумерного массива
procedure M_Vibor(x: matrix; M,N: integer; K: integer;
                  var y:arr; var P: integer);
var
  i: integer;
begin
  for i:=1 to M do b[i]:=a[i,K];
  P:=M;
end;
 
// Процедура вывода одномерного массива
procedure A_Vivod(x: arr; N: integer);
var
  i: integer;
begin
  for i:=1 to N do
    write(x[i]:4,' ');
  writeln;
end;
 
// Функция для подсчета суммы элементов одномерного массива
function A_prod(x: arr; N: integer): longint;
var
  i: integer;
  p: longint;
begin
  p:=1;
  for i:=1 to N do p:=p+x[i];
  A_prod:=p;
end;
 
begin
  write('M=');readln(M);
  N:=M;
  M_Gener(a,M,N);
  M_Vivod(a,M,N);
  for j:=1 to N do
  begin
    M_Vibor(a,M,N,j,b,P);
    prod[j]:=A_prod(b,P);
  end;
  A_Vivod(prod,N);
end.

var
  a: array[1..20,1..20] of integer;
  n,m,i,j,s: integer;
  b: boolean;
begin
  write('Ââåäèòå ðàçìåðû ìàññèâà n, m: ');
  readln(n,m);
  writeln('Èñõîäíûé ìàññèâ:');
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      a[i,j]:=random(41)-20;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  writeln('Ñóììû ñòîëáöîâ áåç îòðèöàòåëüíûõ ýëåìåíòîâ:');
  for j:=1 to m do
  begin
    s:=0; b:=true;
    for i:=1 to n do
    begin
      if a[i,j]<0 then b:=false;
      s:=s+a[i,j];
    end;
    if b then write(s:4) else write('    ');
  end;
  readln;
end.

var
  a: array[1..20,1..20] of integer;
  n,m,i,j,s: integer;
  b: boolean;
begin
  write('Ââåäèòå ðàçìåðû ìàññèâà n, m: ');
  readln(n,m);
  for i:=1 to n do
    for j:=1 to m do
    begin
      write('a[',i,',',j,']=');
      readln(a[i,j]);
    end;
  writeln('Èñõîäíûé ìàññèâ:');
  for i:=1 to n do
  begin
    for j:=1 to m do
      write(a[i,j]:4);
    writeln;
  end;
  writeln('Ñóììû ñòîëáöîâ áåç îòðèöàòåëüíûõ ýëåìåíòîâ:');
  for j:=1 to m do
  begin
    s:=0; b:=true;
    for i:=1 to n do
    begin
      if a[i,j]<0 then b:=false;
      s:=s+a[i,j];
    end;
    if b then write(s:4) else write('    ');
  end;
  readln;
end.