Написать программу которая будет выводить матрицу и отсортировать её по убыванию каждую строку и столбец в матрице

const
  n = 5;
  m = 5;
 
var
  l: array[1..100, 1..100] of integer;{матрица}
  i, j, tmp, a, k: integer;
 
begin
  writeln('Исходнная матрица:');
  randomize;
  for i := 1 to n do 
  begin
    for j := 1 to m do 
    begin
      l[i, j] := random(50);
      write(l[i, j]: 4);
      a := a + n;
    end;
    a := a + m;
    writeln;
  end;
  writeln;
  for k := 1 to n * m do  {повторяем сколько элементов в матрице}
    for i := 1 to m do
      for j := 1 to n do
      begin
        if j <> n then {если элемент в строке не последний}
        begin
          if l[i, j + 1] > l[i, j] then
          begin
            tmp := l[i, j + 1];
            l[i, j + 1] := l[i, j];
            l[i, j] := tmp;{обмен элементов}
          end;
        end
        else
        if (l[i + 1, 1] > l[i, j]) and (i <> m) then {если строка не последняя}
        {меняем первый элемент в следущей строке с последним элементом в текущей строке}
        begin
          tmp := l[i + 1, 1];
          l[i + 1, 1] := l[i, j];
          l[i, j] := tmp;
        end;
      end;
  writeln('Отсортированная матрица по убыванию:');
  for i := 1 to m do
  begin
    for j := 1 to n do
      write(l[i, j]:4);
    writeln;
  end;
  readln
end.

const m=5; n=5; W=4;
var
  a: array [1..m,1..n] of Integer;
  i, j, k, t: Integer;
begin
  Randomize;
  for i:=1 to m do for j:=1 to n do a[i,j]:=1+Random(50);
  WriteLn('A =');
  for i:=1 to m do begin for j:=1 to n do Write(a[i,j]:W); WriteLn; end;
  { сортируем строки }
  for i:=1 to m do begin
    t:=n;
    repeat k:=t; t:=1;
      for j:=1 to k-1 do
        if a[i,j+1]>a[i,j] then begin
          t:=a[i,j]; a[i,j]:=a[i,j+1]; a[i,j+1]:=t; t:=j;
        end;
    until t=1;
  end;
  WriteLn('A1 =');
  for i:=1 to m do begin for j:=1 to n do Write(a[i,j]:W); WriteLn; end;
  { сортируем столбцы }
  for j:=1 to n do begin
    t:=m;
    repeat k:=t; t:=1;
      for i:=1 to k-1 do
        if a[i+1,j]>a[i,j] then begin
          t:=a[i,j]; a[i,j]:=a[i+1,j]; a[i+1,j]:=t; t:=i;
        end;
    until t=1;
  end;
  WriteLn('A2 =');
  for i:=1 to m do begin for j:=1 to n do Write(a[i,j]:W); WriteLn; end;
end.