Задачка в паскале.

В двумерном массиве G (7,5) поменять минимальный элемент 2 строки и максимальный элемент 5 столбца. В полученной матрице вычислить значение произведения элементов главной диагонали. Заменить значение третьего элемента в первой строке на значение произведения.

Const

n = 7;

m = 5;

var

a: array[1 ... n, 1 ... m] of integer;

min2_j, max5_i, i, j, p: integer;

c: char;

begin

min2_j : = 1;

max5_i : = 1;

for i : = 1 to n do

begin

writeln;

for j : = 1 to m do

begin

a[i, j] : = random (50) ;

write (a[i, j]:n) ;

if (i = 2) and (a[2, min2_j] > a[i, j]) then

min2_j : = j;

if (j = 5) and (a[max5_i, 5] < a[i, j]) then

max5_i : = i;

end;

end;

i : = a[2, min2_j];

a[2, min2_j] : = a[max5_i, 5];

a[max5_i, 5] : = i;

writeln;

p : = 1;

for i : = 1 to n do

begin

writeln;

for j : = 1 to m do

begin

write (a[i, j]:n) ;

if (i = j) then

p : = p * a[i, j];

end;

end;

a[1, 3] : = p;

writeln;

for i : = 1 to n do

begin

writeln;

for j : = 1 to m do

write (a[i, j]:n) ;

end;

end.