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

 Program Massive;
uses crt;
type mas=array[1..52] of char;
procedure Sort(var m:mas;n:byte);
var i,j,nmin:byte;
    b:char;
begin
for i:=1 to n-1 do
 begin
  nmin:=i;
  for j:=i+1 to n do
  if m[j]>m[nmin] then nmin:=j;
  b:=m[i];
  m[i]:=m[nmin];
  m[nmin]:=b;
 end;
writeln('Otsortirovaniy massiv');
for i:=1 to n do write(m[i],' ');
writeln;
end;
function Sred(m:mas;n:byte):real;
var i,k:byte;
    s:real;
begin
s:=0;k:=0;
for i:=1 to n do
if ord(m[i]) mod 2=0 then
  begin
   k:=k+1;
   s:=s+ord(m[i]);
  end;
Sred:=s/k;
end;
var a:mas;
    i,j,k,n:integer;
begin
Clrscr;
write('Vvedite kol-vo elementov n:');
readln(n);
writeln('Vvedite ',n,' latinskih bukv:');
for i:=1 to n do
repeat
readln(a[i]);
until a[i] in ['A'..'Z','a'..'z'];
Sort(a,n);
writeln('Srednee arifm chetnih kodov=',Sred(a,n):0:2);
readkey;
end.