const
  n = 3;//Кол-во строк
  m = 4;//Кол-во столбцов

var
  arr: array[1..n, 1..m] of integer;
  i, j: byte;
  sum: integer;

begin
  sum := 0;
  WriteLn('Исходная матрица:');
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      arr[i][j] := random(51) - 25;
      if j = m then sum := sum + arr[i][j];
      Write(arr[i][j]:5);
    end;
    WriteLn;
  end;
  WriteLn('Сумма элементов последнего столбца: ', sum);
end.