Нужно поменять местами СТРОКИ матрицы

Program Matrica;
 
 
var n,m,x:integer;      //n- число строк матрицы; m- число столбцов матрицы; x- вспомогательная переменная при упорядочивании элементов матрицы;
var
    a: array[1..100,1..100] of integer;  //элемент матрицы;
    i, j: byte;        //счетчики циклов;
    s: integer;       //считает сумму строки;
    ps: array[1..100] of integer; //исходный массив;
begin
  writeln('введите размер матрицы:');
  readln(m, n);
    for i:=1 to N do begin
        s := 0;
        for j:=1 to M do begin
          writeln('введите значения элементов массива:');
          writeln;
            readln(a[i, j]);
            writeln(' A[', i, ',', j, ']=', A[i, j]:3);
            s := s + a[i,j];        //считаем сумму строки;
        end;
        writeln;
        writeln ('сумма:', s);
        writeln;
        ps[i]:=s;
    end;
    for i:=1 to N do
        for j:=1 to M do
    if ps[i]>ps[i+1] then
    Begin
       x:=A[i,j];
       A[i,j]:=A[i+1,j];
       A[i+1, j]:= x;
    end;
     write('полученная матрица:   ');
      for i:=1 to N do begin
        for j:=1 to M do begin
          writeln( a[i, j]);
          end;
          end;
   end.

var n,m,x:integer;      //n- число строк матрицы; m- число столбцов матрицы; x- вспомогательная переменная при упорядочивании элементов матрицы;
var a:array[1..100,1..100] of integer;  //элемент матрицы;
    i,j,k:byte;        //счетчики циклов;
    s:integer;       //считает сумму строки;
    ps:array[1..100] of integer; //исходный массив;
begin
writeln('введите размер матрицы:');
readln(m, n);
writeln('введите значения элементов массива:');
for i:=1 to m do
 begin
   ps[i]:=0;
   for j:=1 to n do
    begin
     write('A[',i,',',j,']=');
     readln(a[i, j]);
     ps[i]:=ps[i]+a[i,j];        //считаем сумму строки;
    end;
 end;
 writeln('Введенный массив');
 writeln('Сумма':4*n+8);
 for i:=1 to m do
  begin
   for j:=1 to n do
   write(a[i,j]:4);
   writeln(ps[i]:6);
  end;
for i:=1 to m-1 do
for j:=i+1 to m do
if ps[i]>ps[j] then
 begin
  for k:=1 to n do
   Begin
    x:=A[i,k];
    A[i,k]:=A[j,k];
    A[j,k]:=x;
   end;
  x:=ps[i];
  ps[i]:=ps[j];
  ps[j]:=x;
 end;
writeln('полученная матрица:   ');
writeln('Сумма':4*n+8);
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln(ps[i]:6);
 end;
end.