Изменить заданную прямоугольную матрицу так, чтобы на первом месте стояла строка с максимальной суммой элементов

const n=5;m=3;
var 
  a:array[1..n,1..m] of integer;
  i,j,IdMin,IdMax:integer;
  s,sMin,sMax:real;
procedure Swap2int(var a,b:integer);
var
  t:integer;
begin
  t:=a;
  a:=b;
  b:=t;
end;      
begin
  randomize;
  writeln('Матрица:');
  for i:=1 to n do begin
    s:=0;
    for j:=1 to m do begin
      a[i,j]:=random(101)-50;
      write(a[i,j]:5);
      s:=s+a[i,j];
    end;
    writeln;
    if (i=1) or (s<sMin) then begin sMin:=s;IdMin:=i;end;
    if (i=1) or (s>Smax) then begin smax:=s;IdMax:=i;end;
   end;
   for j:=1 to m do begin
     Swap2int(a[IdMin,j],a[1,j]);
     Swap2int(a[IdMax,j],a[n,j]);     
   end;  
  writeln('Полученная матрица:');
  for i:=1 to n do begin
    for j:=1 to m do write(a[i,j]:5);
    writeln;
  end;
   
end.