Найти произведение всех элементов матрицы

const
  n = 4;
 
var
  Q: array[1..n, 1..n] of integer;
  i, j: byte;
  S: real;
  condition: boolean;
  
begin
  cls;
  condition := false; //элемент 1 пока не найден
  randomize;
  for i := 1 to n do begin
    for j := 1 to n do begin
      q[i, j] := random(5) + 1;
      write(q[i, j]:3);
      if condition = false then
        if (i = j) and (q[i, j] = 1) then //элемент находится на главной диагонали
          condition := true
    end;
    writeln
  end;
  writeln;
  if condition then begin
    S := 1;
    for i := 1 to n do
      for j := 1 to n do S := S * q[i, j];
    writeln('Произведение всех элементов матрицы: ', S)
  end
  else writeln('Условие не выполнено.')
end.

const
  n = 10;
  m = 10;
 
var
  A: array[1..n, 1..m] of integer;
  i, j, max, D: integer;
  
begin
  writeln('Вводим двумерный случайный массив:');
  writeln;
  randomize;
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      a[i, j] := random(21) - 10;
      write(a[i, j]:4)
    end;
    writeln
  end;  
  writeln;
  D := 1;
  for j := 1 to m do
    if odd(j + 1) then begin 
      max := -10;
      for i := 1 to n do
        if max < a[i, j] then max := a[i, j];
      writeln(j, ') Максимальное число: ', max);
      D := D * max
    end;
  writeln('Произведение максимумов четных столбцов: ', D)
end.