Отсортировать массив по убыванию

var  a:array[1..64,1..4] of real;
     i,j,k,g,v:integer;
     c:real;
     f1,f3: text;
begin
 
assign(f1,'3.txt');
 
assign(f3,'5.txt');
 
k:=192;
 
for i:=1 to 64 do begin
a[i,1]:=k;
inc(k);
end;
 
reset(f1);
 
for i:=1 to 64 do begin//Частоты букв исходного текста
   readln(f1,a[i,2]);
end;
 
g:=192;
 
for i:=1 to 64 do begin
a[i,3]:=g;
inc(g);
end;
 
reset(f3);
 
for i:=1 to 64 do begin//Частоты букв зашифрованного текста
   readln(f3,a[i,4]);
end;
 
close(f1);
 
close(f3);
 
for j:=2 to 2 do
for i:=1 to 64 do
for v:=2 to 64 do
    if a[v,j] >a[v-1,j]then begin
    c:=a[v,j];
    a[v,j]:=a[v-1,j];
    a[v-1,j]:=c;
end;
 
for j:=4 to 4 do
for i:=1 to 64 do
for v:=2 to 64 do
    if a[v,j] >a[v-1,j]then begin
    c:=a[v,j];
    a[v,j]:=a[v-1,j];
    a[v-1,j]:=c;
end;
 
for i:=1 to 64 do begin
for j:=1 to 4 do
    write(a[i,j]:7:6,'|');
    writeln;
end;
 
end.

begin
  Randomize;
  var a : array [1..64, 1..4] of Real;
  for var i := 1 to 64 do
    begin a[i, 1] := i; a[i, 2] := Random; a[i, 3] := i; a[i, 4] := Random; end;
    
  var Col := 2; // Сортировка по второму столбцу
  var Row := 1;
  while Row < 64 do
    if a[Row, Col] < a[Row+1, Col] then
      begin
        Swap(a[Row, Col-1], a[Row+1, Col-1]);
        Swap(a[Row, Col  ], a[Row+1, Col  ]);
        if Row > 1 then Row -= 1;
      end
    else
      Row += 1;
 
  Col := 4; // Сортировка по четвёртому столбцу
  Row := 1;
  while Row < 64 do
    if a[Row, Col] < a[Row+1, Col] then
      begin
        Swap(a[Row, Col-1], a[Row+1, Col-1]);
        Swap(a[Row, Col  ], a[Row+1, Col  ]);
        if Row > 1 then Row -= 1;
      end
    else
      Row += 1;
 
  for var i := 1 to 64 do
    WriteLn(a[i,1]:2, ' - ', a[i,2]:6:4, '    ', a[i,3]:2, ' - ', a[i,4]:6:4);
end.

type
  tLiter = record
    Ch : Char; // Буква
    fr : Real; // Частота
  end;