Задача на паскале. Процедуры, функции.

[dimitrijiyul]

Помогите пожалуйста переделать программу:
1) Сортировка должна быть оформлена в виде процедуры с параметрами;
2) Вычисление суммы кодов оформляется в виде функции;
3) Вывести в текстовый файл нечетные элементы после сортировки!

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

Текст программы:

program Massiv;
uses
crt;
const size=100;
var
a: array[1..size] of char;
i,k,n: integer;
buf: char;
sum: real;
begin
clrscr;
writeln ('vvedite razmernost: ');
readln(n);
writeln('ischodniy massiv');
for i:= 1 to n do
begin
readln (a[i]);
end;
writeln;
for k:=n downto 2 do
for i:= 1 to k-1 do
if a[i]<a[i+1] then
begin
buf:= a[i];
a[i]:= a[i+1];
a[i+1]:= buf;
end;
writeln('otsortirovanniy massiv');
for i:= 1 to n do
begin
write(a[i]);
writeln;
end;
Sum:=0;
i:=1;
while i<=n do
begin
sum:=sum+ord(a[i]);
i:=i+2;
end;
writeln('Summa: ', sum:6:2);
readln;
end.

Помогите пожалуйста, нужно на завтра сделать!!!



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.