Символьный массив отсортировать их методом пузырька в порядке убывания

uses crt;
const n=40;
type mas=array [1..n]of char;
procedure sort(var a:mas);
var i:integer;
    x:char;
    f:boolean;
begin
repeat
f:=true;
for i:=1 to n-1 do
if a[i]<a[i+1] then
  begin
   f:=false;
   x:=a[i];
   a[i]:=a[i+1];
   a[i+1]:=x;
  end;
until f;
end;
function summa(a:mas):integer;
var i,s:integer;
begin
s:=0;
for i:=1 to n do
if ord(a[i])mod 2<>0 then s:=s+ord(a[i]);
summa:=s
end;
var a:mas;
    i:integer;
    t:text;
Begin
clrscr;
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=chr(65+random(26));
  write(a[i]:2);
 end;
writeln;
sort(a);
writeln('Упорядоченный массив: ');
for i:=1 to n do
write(a[i]:2);
writeln;
write('Сумма нечетных кодов=',summa(a));
assign(t,'necet.txt');
rewrite(t);
for i:=1 to n do
if ord(a[i])mod 2<>0 then write(t,' ',a[i]);
close(t);
readln
end.

uses crt;
type mas=array [1..100]of char;
var a:mas;
    n:integer;
procedure sort(var a:mas);
var i:integer;
    x:char;
    f:boolean;
begin
repeat
f:=true;
for i:=1 to n-1 do
if a[i]<a[i+1] then
  begin
   f:=false;
   x:=a[i];
   a[i]:=a[i+1];
   a[i+1]:=x;
  end;
until f;
end;
function summa(a:mas):integer;
var i,s:integer;
begin
s:=0;
for i:=1 to n do
if ord(a[i])mod 2<>0 then s:=s+ord(a[i]);
summa:=s
end;
var s:mas;
    i:integer;
    t:text;
Begin
clrscr;
writeln ('vvedite razmernoct:');
readln (n);
writeln('isxodniy massiv:');
for i:=1 to n do
 begin
  read(a[i]);
 end;
writeln;
sort(a);
writeln('yporadozeniy massiv: ');
for i:=1 to n do
write(a[i]:2);
writeln;
write('symma=',summa(a));
assign(t,'pezyitst.txt');
rewrite(t);
for i:=1 to n do
if ord(a[i])mod 2<>0 then write(t,' ',a[i]);
close(t);
readln
end.

for i:=1 to n do
 begin
  readln(a[i]);
 end;