Сортировка массива по убыванию

var
A: array[1..33] of integer;
S, T: string;
f, j: text;
i, n, kol: integer;
 
begin
for i := 1 to 33 do A[i] := 0;
S := 'абвгдеёжзийклмнопрстуфхцчшщъыьэюя';
kol := 0;
assign(f, 'C:\Users\Unknown\Desktop\1.txt');
reset(f);
while not eof(f) do
begin
readln(f, t);
for i := 1 to length(t) do
begin
n := pos(t[i], s);
if n > 0 then
begin
A[n] := A[n] + 1; kol := kol + 1;
end;
end;
end;
close(f);
assign(j, 'C:\Users\Unknown\Desktop\2.txt');
rewrite(j);
 
if kol > 0 then
for i := 1 to 33 do
begin
 
A[i] := round((A[i] * 100) / kol);
writeln(j, 'Частота для буквы ', s[i], ' = ', A[i]);
end
else writeln(j, 'В тексте нет русских букв');
writeln('Документ был сформирован');
close(j);
end.

type simvol=record
            sm:char;
            vs:real;
            end;
var
a:array[1..33] of simvol;
s,t:string;
f,g:text;
n,i,j,kol:integer;
x:simvol;
begin
s:='абвгдеёжзийклмнопрстуфхцчшщъыьэюя';
for i:=1 to 33 do
 begin
  a[i].sm:=s[i];
  a[i].vs:=0;
 end;
kol:=0;
assign(f,'1.txt');
reset(f);
while not eof(f) do
 begin
  readln(f, t);
  for i := 1 to length(t) do
   begin
    n:=pos(t[i], s);
    if n>0 then
     begin
      a[n].vs:=a[n].vs+1;
      kol:=kol+1;
     end;
    end;
  end;
close(f);
for i:=1 to 32 do
for j:=i+1 to 33 do
if a[i].vs<a[j].vs then
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x;
 end;
assign(g,'2.txt');
rewrite(g);
if kol>0 then
for i:=1 to 33 do
 begin
  a[i].vs:=a[i].vs*100/kol;
  if a[i].vs>0 then writeln(g, 'Частота для буквы ',a[i].sm,'=',a[i].vs:0:2);
end
else writeln(g, 'В тексте нет русских букв');
writeln('Документ был сформирован');
close(g);
end.