В матрице поменять местами строки с max элементом и min элементом: объясните код, где какие действия выполняются (Паскаль).

[КонстантинКонстант]

В данной действительной матрице размера 6x9 поменять местами строку, содержащую элемент с наибольшим значением, со строкой, содержащей элемент с наименьшим значением. Предполагается, что эти элементы единственны.

const N=6;
      M=9;
var A:array[1..N,1..M]of real;
    i,e,j,c:byte;
    min,max,R:real;
begin
     randomize;
     for i:=1 to N do
     begin
          for e:=1 to M do
          begin
               A[i,e]:=random(101);
               write(A[i,e]:5:0)
          end;
          writeln
     end;
     writeln;writeln;
     
     min:=A[1,1]; max:=min; j:=1;c:=1;
     for i:=1 to N do
         for e:=1 to M do
         begin
             if A[i,e]<min
                then
                begin
                     min:=A[i,e];
                     j:=i
                end;
             if A[i,e]>max
                then
                begin
                     max:=A[i,e];
                     c:=i
                end
         end;
         
         if c<>j
            then
                for e:=1 to M do
                begin
                     R:=A[j,e];
                     A[j,e]:=A[c,e];
                     A[c,e]:=R
                end;

     for i:=1 to N do
     begin
          for e:=1 to M do write(A[i,e]:5:0);
          writeln
     end;
End.