Отсортировать символьный массив методом выделения максимального элемента в порядке убывания

uses crt;
const n=40;
var a:array [1..n]of char;
    i,j,x,s:integer;
    buf:char;
Begin
clrscr;
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=chr(65+random(26));
  write(a[i]:2);
 end;
writeln;
for i:=1 to n-1 do
 begin
  x:=i;{пусть данный элеиент максимальный}
  for j:=i+1 to n do
  if a[j]>a[x] then x:=j;{ищем впереди самый большой}
  buf:=a[i];
  a[i]:=a[x]; {и обмениваем}
  a[x]:=buf;
 end;
writeln('Упорядоченный массив: ');
s:=0;
for i:=1 to n do
 begin
  write(a[i]:2);
  if ord(a[i])mod 2=0 then s:=s+ord(a[i])
 end;
writeln;
write('Сумма четных кодов=',s);
readln
end.

Program Massiv;
Uses Crt;
var a:array [1..100]of char;
i,n,j,x,s:integer;
buf:char;
Begin
ClrScr;
WriteLn('Vvedite razmer massiva');
ReadLn(n);
WriteLn('Vvedite elementy massiva');
for i:=1 to n do
ReadLn(a[i]);
WriteLn('Massiv do sortirovki');
for i:=1 to n do
Write(a[i],'');
WriteLn;
WriteLn('Ishodniy masssiv:');
for i:=1 to n do
begin
a[i]:=chr(65+random(26));
write(a[i]:2);
end;
WriteLn;
for i:=1 to n-1 do
begin
x:=i;
for j:=i+1 to n do
if a[j]>a[x] then x:=j;
buf:=a[i];
a[i]:=a[x];
a[x]:=buf;
end;
WriteLn('Uporyadochenniy massiv:');
s:=0;
for i:=1 to n do
begin
write(a[i]:2);
if ord(a[i]) mod 2 =0 then s:=s+ord(a[i]);
end;
WriteLn;
Write('Summa chetnih kodov=',s);
ReadLn
End.

a[i]:=chr(65+random(26));

a[i]:=chr(97+random(26));