Упорядочить массив по убыванию элементов второй строки - Free Pascal

uses crt;
const m=5;
      n=3;
var a:array[1..m,1..n] of real;
    i,j,k:byte;
    x:real;
begin
clrscr;
randomize;
writeln('Исходный массив');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=10*random;
    write(a[i,j]:6:2);
   end;
  writeln;
 end;
for j:=1 to n-1 do
for k:=j+1 to n do
if a[2,j]<a[2,k] then
for i:=1 to m do
 begin
  x:=a[i,j];
  a[i,j]:=a[i,k];
  a[i,k]:=x;
 end;
writeln('Сортировка по убыванию элементов второй строки');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:6:2);
  writeln;
 end;
readln
end.