В матрице поменять местами строки с максимальной и минимальной суммой элементов

uses crt;
const nn=20;
type Tmas=array[1..nn,1..nn] of real;
     TM=object
        {peremennye objekta}
        m:Tmas; {matrica}
        r,c:byte;{stroka i stolbec - pozicia min }
        min:real; {minimum}
        {metody objekta}
        procedure Vvod(x,y:byte); {vvod matricy x,y-razmer maricy}
        procedure Vyvod(x,y:byte); {vyvod izmenennoj matricy}
        procedure Obmen(x,y:byte); {obmen strok}
        procedure PosMin(x,y:byte); {pozicia minimalnogo}
      end;
procedure TM.Vvod(x,y:byte);
var i,j:integer;
begin
for i:=1 to x do
  begin
    for j:=1 to y do
      begin
       m[i,j]:=10*random;
       write(m[i,j]:5:2);
      end;
    writeln;
  end;
end;
procedure TM.Vyvod(x,y:byte);
var i,j:integer;
begin
writeln('Perestanovka strok:');
for i:=1 to x do
  begin
    for j:=1 to y do
    write(m[i,j]:5:2);
    writeln;
  end;
end;
procedure TM.PosMin(x,y:byte);
var i,j:byte;
begin
min:=m[1,1];
for i:=1 to x do
for j:=1 to y do
if m[i,j]<min then
   begin
     min:=m[i,j];{minimum}
     r:=i; {stroka}
     c:=j;  {stolbec}
   end;
write('Minimalnyj element=',min:0:2);
writeln('  Ego pozicia = stroka ',r,' stolbec ',c);
end;
procedure TM.Obmen(x,y:byte);
var i,j:byte;
    ismax,ismin:byte; {nomera strok s max i min summoj}
    iemin1,jemin1:byte;{nomer stroki i stolbca min.el. do perestanovki}
    iemin2,jemin2:byte;{nomer stroki i stolbca min.el. posle perestanovki}
    sm,smax,smin,emin:real;{summa v stroke, summa max, summa min, min.el.}
    bf:real; {bufer pri obmene strok}
begin
smax:=0;smin:=100;ismax:=1;ismin:=1;
for i:=1 to 5 do
  begin
    sm:=0;
    for j:=1 to 6 do
    sm:=sm+m[i,j];
    if sm>smax then
      begin
       smax:=sm;
       ismax:=i;
      end
    else if sm<smin then
      begin
       smin:=sm;
       ismin:=i;
      end;
  end;
write('Max summa=',smax:0:2,' v stroke ',ismax);
writeln('  Min summa=',smin:0:2,' v stroke ',ismin);
for j:=1 to 6 do
   begin
    bf:=m[ismax,j];
    m[ismax,j]:=m[ismin,j];
    m[ismin,j]:=bf;
   end;
end;
{razdel peremennyh programmy}
var a,b:TM; {objekty-matricy}
    emin:real; {minimalnyj element}
    iemin1,jemin1:byte;{pozicia do perestanovki}
    iemin2,jemin2:byte;{pozicia posle perestanovki}
{nachalo programmy}
begin
clrscr;
randomize;
writeln('Matrica A:');
a.Vvod(5,6);
a.PosMin(5,6);
a.Obmen(5,6);
a.Vyvod(5,6);
a.PosMin(5,6);
if iemin1<>iemin2 then writeln('Pozicia minimalnogo elementa izmenilas!')
else writeln('Pozicia minimalnogo elementa ne izmenilas!');
readln;
writeln('Matrica B:');
b.Vvod(8,7);
b.PosMin(8,7);
b.Obmen(8,7);
b.Vyvod(8,7);
b.PosMin(8,7);
if iemin1<>iemin2 then writeln('Pozicia minimalnogo elementa izmenilas!')
else writeln('Pozicia minimalnogo elementa ne izmenilas!');
readln
end.