Поменять Min первой строки с Min последней строки - Turbo Pascal

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

Как оказалось, ещё 5 – 6 кульбитов с массивами предстоит завершить. Что-то их слишком много оказывается. Вот ещё один из оставшихся кульбитов с массивом. 4. Заполнить случайным образом двумерный массив размерностью n x n. Поменять местами минимальные элементы первой и последней строки. Вывести оба массива на экран. (в качестве исходной программы использована ваша отлично работающая программа)

uses Crt;
const N = 5;  {Число строк}
          M = 4;  {Число столбцов}
var A: array[1..N, 1..M] of integer;
           i, j, mi, mj, min: integer;
begin
ClrScr;
  Randomize;
    writeln;
for i:= 1 to N do
for j:= 1 to M do
  A[i, j]:= Random(50);
for i:= 1 to N do begin
for j:= 1 to M do
   write(A[i, j]:4);
   writeln;  writeln;
end;
{Поиск Мин. эл-та и его индекса}
     min:= 100;
for i:= 1 to N do begin
for j:= 1 to M do
  if min > A[i, j] then begin
     min:= A[i, j];  mi:= i  mj:= j;
   end;  end;
writeln(' Мин. эл-т массива: ' , min);
writeln(' Индекс мин. эл-та: ' , mi, ' ' , mj};
writeln(' Строка: ' , mi, ' Столбец: ' , mj);
   readln
end.

На выходе имеем:

22   41   47   32
15   31   25   48
  4   11   17     7
10   10     1   39
39   37   30   33
Min эл-т массива:   4
Индекс min эл-та:   31
Строка:   3   Столбец:   1

Поменять Min первой строки с Min последней строки – эту проблему только вам решить.

Решение задачи: «Поменять Min первой строки с Min последней строки»

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

uses сrt;
const n=5;  {по условию массив n*n}
var a:array[1..n,1..n] of integer;
    i,j,j1,j2,x:integer;
begin
clrscr;
randomize;
writeln('Исходный массив');
j1:=1;
j2:=1;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(50);
    write(a[i,j]:3);
    if(i=1)and(a[i,j]<a[i,j1]) then j1:=j;
    if(i=n)and(a[i,j]<a[i,j2]) then j2:=j;
   end;
  writeln;
 end;
writeln('Минимальный элемент 1 строки=',a[1,j1],' его номер в строке=',j1);
writeln('Минимальный элемент ',n,' строки=',a[n,j2],' его номер в строке=',j2);
x:=a[1,j1];
a[1,j1]:=a[n,j2];
a[n,j2]:=x;
writeln('Обмен минимальных элементов 1 и последней строк');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:3);
  writeln;
 end;
readln
end.

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

Объявлены переменные: a (массив), i, j, j1, j2, x (целочисленные)
Выполняется инициализация массива случайными значениями от 0 до 49
Выводится исходный массив на экран
В каждой строке находится минимальный элемент и сохраняется его номер в переменных j1 и j2
Меняются местами минимальные элементы первой и последней строк
Выводится измененный массив на экран
Программа ожидает ввода пользователя для завершения работы