Дана матрица 5*5. Нужно упорядочить ее строки по убыванию — Pascal(Паскаль)

program matr1;

uses crt;

const
  n = 5;

var
  i, j, k, x: integer;
  a: array [1 .. n, 1 .. n] of integer;
  b: array [1 .. n] of integer;

begin
  clrscr;
  writeln('Исходная матрица:');
  readln;
  randomize;
  { ввод, вывод }
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      a[i, j] := random(10);
      write(a[i, j]:2);
    end;
    writeln;
  end;
  readln;
  { сортировка по строкам по убыванию }
  for i := 1 to n do
    for j := 1 to n - 1 do
      for k := 1 to n - 1 do
        if a[i, k][i, k + 1] then
        begin
          x := a[i, k];
          a[i, k] := a[i, k + 1];
          a[i, k + 1] := x;
        end;
  writeln('Обработанная матрица:');
  readln;
  for i := 1 to n do
  begin
    for j := 1 to n do
      write(a[i, j]:3);
    writeln;
  end;
  readln;

end.