[Decoding]

А самому подумать лень?

Код:

procedure TForm1.Button1Click(Sender: TObject);
const
  m = 4;
  n = 4;
var
  mat: array[1..m,1..n] of integer;
  i, j: integer;
  result: real;
  s: string;
begin
  Memo1.Clear;

   // Заполнение
   Randomize;
   for i := 1 to m do
      for j := 1 to n do
         mat[i,j] := Random( 10 );

   // Вывод
   for i := 1 to m do
   begin
      s := '';
      for j := 1 to n do
         s := s + IntToStr( mat[i,j] ) + ' ';
      Memo1.Lines.Add( s );
   end;

   Memo1.Lines.Add( '' );

   // Подсчет
   for i := 1 to n do
   begin
      result := 0;
      for j := 1 to m do
         result := result + mat[j,i];
      Memo1.Lines.Add( Format( 'Столбец %d = %f', [i,result/m] ) );
   end;
end;