program ex2;
uses crt;
const
  n=6;
  m=8;
type
  du_type=array  of integer;
  ar_typeb=array  of integer;
  ar_typec=array  of integer;
var
  a:du_type;
  b:ar_typeb;
  c:ar_typec;
procedure sum_colums(a1:du_type;var c1:ar_typec);
{sumes all the numbers in the colums and puts them in
the right place in a new array}
var
  i,j,sum:integer;
begin
  for i:=1 to m do
    begin
      sum:=0;
      for j:=1 to n do
        sum:=sum+a1;
      c1:=sum;
    end;
end;{sum_colums}