program Matrix;

const
  N = 3;  // Количество строк
  M = 4;  // Количество столбцов

var
  a: array[1..N, 1..M] of Integer; // Матрица для хранения чисел
  amax: Integer;                       // Переменная для максимального элемента
  s: Integer;                      // Переменная для суммы всех элементов
  i, j: Integer;                             // Переменные для циклов

begin

  amax := -1000; // Инициализируем значением Integer
  s := 0;
  for i := 1 to N do
  begin
    for j := 1 to M do
    begin
      a[i, j]:= random(10);  // Ввод элементов матрицы
  // Нахождение максимального элемента и суммы всех чисел
      // Проверяем, является ли текущий элемент максимальным
      if a[i, j] > amax then
        amax := a[i, j];
      // Нахождение суммы, Добавляем текущий элемент к сумме
      s := s + a[i, j];
    // Вывод результата
write(a[i, j]:5); // Вывод элемента с форматированием (5 пробелов)
    end;
    writeln; // Переход на новую строку после каждой строки матрицы

  end;
  writeln('------------------------------------');
  writeln('Максимальный элемент в матрице= ', amax);
  writeln('Сумма всех чисел в матрице= ', s);
  readln; // Ожидание нажатия Enter для закрытия 
end.