Расставить строки таким образом, чтобы элементы в 1-м столбце были упорядочены по убыванию

 uses crt;
 const n=5;
 var a: array[1..n,1..n] of integer; 
       i,j,k: byte;
 begin
  randomize;
  clrscr;
  writeln('исходный массив: ');  {заполнение посредством генератора случайных чисел и вывод   элементов массива на экран}
  for i:=1 to n do
   begin
    for j:=1 to n do
     begin
      a[i,j]:=random(19)-9;
      write(a[i,j]:3);
     end;
    writeln;
   end;
  writeln;
  for j:=1 to n-1 do {сортировка}
   for k:=j+1 to n do
    if a[j,1]<a[k,1] then {если очередной элемент 1-ого столбца (начиная с первого) больше следующего, то выполняем построчный обмен между элементами каждого столбца}
     for i:=1 to n do
      begin
       a[j,i]:=a[k,i]+a[j,i];
       a[k,i]:=a[j,i]-a[k,i];
       a[j,i]:=a[j,i]-a[k,i];
      end;
  writeln('отсортированный массив: ');  {вывод результирующего массива на экран}
  for i:=1 to n do
   begin
    for j:=1 to n do
     write(a[i,j]:3);
    writeln;
   end;
 end.

a[i,j]:=random(19)-9;

a[i,j]:=random(10);