Переделать программу к задаче.

[dimitrijiyul]

Помогите переделать программу на эту задачу!
Текст задачи:
Дан массив латинских букв А [1..n]. Отсортировать их методом «пузырька» в порядке убывания. Вычислить сумму кодов нечетных элементов. Вывести на экран отсортированный массив и вычисленное значение.
Текст проги:

Program Massiv;
uses crt;
var a:array [1..256] of integer;
n,i,j,k,m,b:integer;
sr:real;

Begin
clrscr;
repeat
write('razmer massiva n= ');
readln(n);
until n in [1..n];
sr:=0;k:=0;
for i:=1 to n do
begin
write('a[',i,']= ');
readln(a[i]);
if a[i] mod 2=0 then
begin
k:=k+1;
sr:=sr+a[i];
end;
end;

if k>0 then sr:=sr/k;
for i:=1 to n-1 do
begin
m:=i;
for j:=i+1 to n do
if a[j]>a[m] then m:=j;
b:=a[i];
a[i]:=a[m];
a[m]:=b;
end;

writeln('uporyadochevii massiv: ');
for i:=1 to n do
write(a[i]:4);
writeln;
if k=0 then write('chetnih elementov net')
else write('ih srednee arefmeticheskoe= ',sr:0:2);
readln;
end.

Заранее огромное спасибо!

[ACE Valery]

Для выделения текста программы у нас есть кнопочка # на панели ввода сообщения, а также тег [code].

Что значит "Помогите переделать программу на эту задачу!"?
А это что за исходный код? Под другую задачу?

Аааа... так вы еще и кросспостер. В этой теме недостаточно понятно ответили?

[Петррр]

program prog1;
uses
	crt;
const 
	size = 15;
var
	a: array[1..size] of char;
	i, j: integer;
	f: boolean;
	buf: char;
	sum: integer;
begin
	clrscr;
	randomize;
	for i := 1 to size do
	begin
		a[i] := chr(random(26) + ord('a'));
		write(a[i], ' ');
	end;
	writeln;
	f := true;
	while (f) do
	begin
		f := false;
		for i := 1 to size - 1 do
			if (a[i] < a[i + 1]) then
			begin
				buf := a[i];
				a[i] := a[i + 1];
				a[i + 1] := buf;
				f := true;
			end;
	end;
	for i := 1 to size do
		write(a[i], ' ');
	writeln;
	i := 1;
	while (i <= size) do
	begin
		sum := sum + ord(a[i]);
		i := i + 2;
	end;
	writeln('Sum: ', sum);
end.

[dimitrijiyul]

Но ваша программа даже не запускается на паскале.... Помогите пожалуйста!