В матрице размером N×M поменять местами строки

Program SSS;
Uses crt;
Type
  Mtr=array [1..50,1..50] of integer;
  Rec=record
   Str,Zn:integer;
  end;
Procedure GetMatr(Var A:Mtr; N,M:integer; Avto:boolean);
Var i,j:integer;
begin
  if Avto then
  begin
       Randomize;
       for i:=1 to N do
       for j:=1 to M do
          A[i,j]:=Random(100);
  end     else
    for i:=1 to N do
    begin
      WriteLn;
      for j:=1 to M do
     begin
       Write('A[',i,',',j,']= ');
       Read(A[i,j]);
     end;
    end;
end;
 
Procedure SHowMas(A:Mtr; N,M:integer);
Var i,j:integer;
begin
  for i:=1 to N do
  begin
    WriteLn;
   for j:=1 to M do
     Write(A[i,j]:5,' ');
  end;
end;
 
Function GetMinFromMatr(A:Mtr; N,M:integer):Rec;
Var i,j:integer;
    R:Rec;
begin
   R.Str:=1;
   R.Zn:=A[1,1];
   for i:=1 to N do
   for j:=1 to M do
     if R.zn >= A[i,j] then
     begin
       R.str:=i;
       R.zn:=A[i,j];
     end;
     Result:=R;
end;
 
Function GetMaxFromMatr(A:Mtr; N,M:integer):Rec;
Var i,j:integer;
    R:Rec;
begin
   R.str:=1;
   R.Zn:=A[1,1];
   for i:=1 to N do
   for j:=1 to M do
     if R.zn <= A[i,j] then
     begin
       R.Str:=i;
       R.zn:=A[i,j];
     end;
     Result:=R;
end;
 
Procedure StringChange(Var A:Mtr; MinStr,MaxStr,M:integer);
Var i,j,R:integer;
begin
   for i:=1 to M do
   begin
     R:=A[MinStr,i];
     A[MinStr,i]:=A[MaxStr,i];
     A[MaxStr,i]:=R;
   end;
end;
 
Var Mas:Mtr;
    MM,NN:integer;
    Max,Min:Rec;
Begin
   Write('Ââåäèòå Êîë-âî ñòðîê ');
   ReadLn(NN);
   Write('Ââåäèòå Êîë-âî ñòîëáöîâ ');
   ReadLn(MM);
   GetMatr(Mas,NN,MM,True);  //false - ââîäèòü âðó÷íóþ
   WriteLn('Èñõîäíàÿ ìàòðèöà: ');
   ShowMas(Mas,NN,MM);
   WriteLn;
   max:=GetMaxFromMatr(Mas,NN,MM);
   min:=GetMinFromMatr(Mas,NN,MM);
   Writeln;
   WriteLn('Ñòðîêà ñ ìàêñèìîëüíûì ýëåìåíòîì = ',Max.Str,' (Max= ',Max.Zn,') ');
   WriteLn('Ñòðîêà ñ ìèíèìàëüíûì ýëåìåíòîì = ',Min.Str,' (Min= ',Min.Zn,') ');
   StringChange(Mas,Min.Str,Max.Str,MM);
   ShowMas(Mas,NN,MM);
End.