Разработать алгоритм методом пошаговой детализации и программу решения задачи

const
  n = 4;
 
var
  a: array[1..n, 1..n] of integer;
  j, i: integer;
  p: real;
 
begin
  randomize;
  p := 1;
  for i := 1 to n do 
  begin
    for j := 1 to n do
    begin
      a[i, j] := random(n * n) + 1;
      write(a[i, j]:4);      
      if j >= n + 1 - i then 
        p := p * a[i, j]
    end;
    writeln;
  end;
  writeln('Найти произведение всех элементов матрицы, расположенных на побочной диагонали и ниже ее: ', p);
end.

const
  n = 4;
 
type
  matrix = array[1..n, 1..n] of integer;
 
var
  a: matrix;
 
procedure CreateMatrix(var x: matrix);
var
  j, i: integer;
 
begin
  for i := 1 to n do 
    for j := 1 to n do
      x[i, j] := random(n * n) + 1;
end;
 
procedure PrintMatrix(x: matrix);
var
  j, i: integer;
 
begin
  for i := 1 to n do 
  begin
    for j := 1 to n do
      write(x[i, j]:4);      
    writeln;
  end;
end;
 
function DoMatrix(x: matrix): real;
var
  j, i: integer;
  p: real;
 
begin
  p := 1;
  for i := 1 to n do 
    for j := 1 to n do
      if j >= n + 1 - i then 
        p := p * x[i, j];
  DoMatrix := p;        
end;
 
begin
  randomize;
  CreateMatrix(a);
  PrintMatrix(a);
  writeln('Найти произведение всех элементов матрицы, расположенных на побочной диагонали и ниже ее: ', DoMatrix(a));
end.

const n = 4;
type mtr=array[1..n, 1..n] of integer;
procedure matrix(var a:mtr);
var i,j:byte;
begin
writeln('Матрица');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=1+random(5);
    write(a[i, j]:4);
   end;
  writeln;
 end;
end;
function mult(a:mtr):integer;
var i,j:byte;
begin
result:=1;
for i:=1 to n do
for j:=n-i+1 to n do
result:=result*a[i,j];
end;
var a:mtr;
begin
matrix(a);
write('Произведение элементов, расположенных на побочной диагонали и ниже ее=',mult(a));
end.