Составьте программу, упорядочивающую по убыванию элементы каждой строки матрицы размером m*n — Pascal(Паскаль)

program sortirovka;
uses crt;
  var
  a :array[1..20,1..20] of integer;
  s,i,j,n,m,t :integer;
  begin
  clrscr;
  write('Введите количество строк:'); readln(n);
  write('ВВведите количество столбцов:'); readln(m);
  writeln('массив:');
  for i:=1 to n do
  for j:=1 to m do
  a[i,j]:=random(30);
 
  for s:=1 to n do
  for i:=1 to n-1 do
  for j:=i+1 to n do
  begin
       if a[s,i] < a[s,j] then
       begin
       t:=a[s,i];
       a[s,i]:=a[s,j];
       a[s,j]:=t;
       end;
  end;
  for i:=1 to n do
  begin
  for j:=1 to m do
  write(a[i,j],' ');
  writeln;
  end;
  end.