Составить программу, содержащую подпрограмму, которая в целочисленной матрице переставляет местами строки с наименьшим и наибольшим элементами

const
  nmax=20;
type
  tAr=array[1..20,1..20] of integer;
var
  imin,jmin,imax,jmax: integer;
procedure minimax(a: tAr; n,m: integer; var imin,jmin,imax,jmax: integer);
var i,j: integer;
begin
  imin:=1; jmin:=1; imax:=1; jmax:=1;
  for i:=1 to n do
    for j:=1 to m do
    begin
      if a[i,j]>a[imax,jmax] then
      begin
        imax:=i;
        jmax:=j;
      end;
      if a[i,j]<a[imin,jmin] then
      begin
        imin:=i;
        jmin:=j;
      end;
    end;
  writeln('Max = a[',imax,',',jmax,'] = ',a[imax,jmax]);
  writeln('Min = a[',imin,',',jmin,'] = ',a[imin,jmin]);
end;
procedure change(var a: tAr; n,m: integer);
var i,j,tmp: integer;
begin
  if imax = imin then writeln('Ìèíèìàëüðíûé è ìàêñèìàëüíûé ýëåìåíòû íà îäíîé ñòðîêå') else
    for j:=1 to m do
    begin
      tmp:=a[imin,j];
      a[imin,j]:=a[imax,j];
      a[imax,j]:=tmp;
    end;
end;
 
var
  a: tAr;
  n,m,i,j: integer;
begin
  randomize;
  write('Ââåäèòå ðàçìåðû ìàññèâà n, m: ');
  readln(n,m);
  writeln('Èñõîäíàÿ ìàòðèöà:');
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      a[i,j]:=random(99)+1;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  writeln;
  minimax(a,n,m,imin,jmin,imax,jmax);
  change(a,n,m);
  if imin<>imax then
  begin
    writeln('Ïðåîáðàçîâàííûé ìàññèâ:');
    for i:=1 to n do
    begin
      for j:=1 to m do
        write(a[i,j]:4);
      writeln;
    end;
  end;
  readln;
end.