Найти минимальный элемент и поменять его местами со вторым элементом первой строки массива - Pascal ABC

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

Найти минимальный элемент и поменять его местами со вторым элементом первой строки массива. Массив вывести в виде таблицы. Программу оформить в виде процедуры.

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

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

procedure zamena;
const n=3;m=5;
type mas=array[1..n,1..m] of integer;
var a:mas;
    i,j:integer;
 procedure vv_mas(var x:mas;s:string;f:boolean;var mi,mj:integer);
 var i,j:integer;
 begin
  for i:=1 to n do
   begin
    for j:=1 to m do
     begin
      if f then x[i,j]:=random(100);
      if (i=1)and(j=1) then begin mi:=i;mj:=j end
                       else 
                        if x[i,j]>x[mi,mj] 
                         then begin mi:=i;mj:=j end;
      write(x[i,j]:4)
     end;
    writeln
   end
 end; 
 procedure zam(var x:mas;i,j:integer);
 var t:integer;
 begin
  t:=x[i,j];
  x[i,j]:=x[1,2];
  x[1,2]:=t
 end;
begin
  vv_mas(a,'A:',true,i,j);
  writeln('максимальный: a[',i,',',j,'] = ',a[i,j]);
  writeln('его замена со вторым элементом первой строки массива:');
  zam(a,i,j);
  vv_mas(a,'A'':',false,i,j);
end;
begin
 zamena
end.

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

В процедуре vv_mas объявлены переменные i, j, mi и mj. Переменные i и j используются для итерации по массиву x, а переменные mi и mj используются для хранения минимального и максимального индексов соответственно.
В процедуре vv_mas используется цикл for для итерации по каждому элементу массива x. Внутри цикла проверяется условие f, которое указывает, является ли текущий элемент случайным числом. Если это так, то значение элемента присваивается переменной t.
Если условие f не выполняется, то значение элемента сравнивается с значением элемента с индексами mi и mj. Если текущий элемент больше, то значения mi и mj обновляются.
После завершения цикла for значение переменной t записывается в элемент с индексами i и j.
Затем вызывается процедура zam, которая меняет значение элемента с индексами i и j на значение t.
После этого вызывается процедура vv_mas снова, но уже с параметрами 'A': и false для проверки, является ли текущий элемент случайным числом.
В конце программы выводится сообщение о максимальном элементе и его замене.