Дана матрица,в каждой строке расположить элементы в порядке невозрастания — Pascal(Паскаль)

var
   a:array[1..100,1..100] of integer;
   i,j,m,n,r,q:integer;
begin
write('Размер массива m=');
readln(m);
write('Размер массив n=');
readln(n);
writeln('Вывод массива');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(51)-10;
    write(a[i,j]:4);
   end;
  writeln;
 end;
writeln('Итого');
for i:=1 to m do
 for q:=1 to n-1 do
  for j:=1 to n-q do
   if (a[i,j]<=a[i,j+1]) then
    begin
     r:=a[i,j];
     a[i,j]:=a[i,j+1];
     a[i,j+1]:=r;
    end;
for i:=1 to m do
 begin
  for j:=1 to n do
   write(a[i,j]:4);
  writeln;
 end;
readln
end.