Как правильно поменять местами отрицательный элемент первой строки с последним элементом матрицы? - Pascal

Формулировка задачи:

Var
i,j,sum,k,y,c:integer;
X:array[1..7,1..7] of real;
Min,Last  : real;
 
const n=7;
Begin
writeln('Дана матрица:X(7;7)');
For i:=1 to 7 do
For j:=1 to 7 do
X[i,j] :=Random(40)-20;
For i := 1 to 7 do
Begin
For j:=1 to 7 do
Write(X[i,j]:3:0,'  ');
Writeln;
end;
 
k:=0;
Min:=X[i,1];
writeln;
For i:=1 to 7 do
for j:=1 to 7 do
if (iN+1)  and   (X[i,j]<0)  then {поиск количества отрицательных элементов }
k:=k+1;
sum:=sum+k;
 
For i:=1 to 1 do
  for j:=1 to 7 do
If Min > X[1,j] Then Min:=X[1,j]; 
   For i:=1 To 1 Do
      For j:=1 To 7 Do
    If Min>X[i,j] Then  Min:=X[i,j];
 
For i := 1 to 7 do
Begin
For j:=1 to 7 do
X[7,7]:= Last;
Last:= Min;
 
end;
   
writeln(' Количество отрицательных элементов выше главной и ниже побочной диагонали: ',sum); {вывод результата}
writeln;
writeln(' Поменять местами минимальный элемент первой строки, и последний элемент матрицы:');
writeln('минимальный элемент = ', Min); 
writeln;
For i := 1 to 7 do
Begin
For j:=1 to 7 do
Write(X[i,j]:3:0,'  ');
Writeln;
end;
 
End.

Решение задачи: «Как правильно поменять местами отрицательный элемент первой строки с последним элементом матрицы?»

Листинг программы

const n=7;
var x:array[1..n,1..n] of real;
    i,j,k,jmn:integer;
    min,y:real;
Begin
writeln('Дана матрица:X(7;7)');
k:=0;
For i:=1 to 7 do
 begin
  for j:=1 to 7 do
   begin
    x[i,j] :=-20+40*random;
    write(x[i,j]:7:2);
    if (j>i)and(j<n-i+1)and(x[i,j]<0) then inc(k);
   end;
  writeln
 end;
writeln('Количество отрицательных выше главной и ниже побочной диагоналей=',k);
jmn:=1;
for i:=2 to n do
if x[1,j]<x[1,jmn] then jmn:=i;
writeln('Минимальный элемент первой строки x[1',jmn,']=',x[1,jmn]:0:2);
y:=x[1,jmn];
x[1,jmn]:=x[n,n];
x[n,n]:=y;
writeln('Обмен минимального элемента первой строки с последним элементом');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(x[i,j]:7:2);
  writeln;
 end;
end.

Объяснение кода листинга программы

Объявлены константа n = 7, переменные x, i, j, k, jmn, min, y типа real и integer.
Выводится шаблон матрицы X(7;7).
Заполняются элементы матрицы x случайными числами с отрицательными значениями.
Считается количество отрицательных чисел в матрице, которые находятся выше главной и ниже побочной диагоналей.
Находится номер минимального элемента первой строки матрицы x.
Заменяются значения минимального элемента первой строки и последнего элемента матрицы.
Выводится новая матрица x.