благодарнасть и просьба, процедура и функция Опции

[trew]

Благодарю за то что вы мне помогли решить? Особенно благодарен:
mind abuse,
kvadrat,
ammaximus
И всех тех кто мне помогал и старался помощь. Но в тоже время есть у меня к вам просьба.
Мой одногруппник был на больничном и у него накопились долги помогите ему решить пару задач

[trew]

Program CountingSort;

Var A,B : array[1..1000] of byte;

C : array[byte] of integer;

N,i : integer;

Begin

{Определение размера массива A (N) и его заполнение}

…

{сортировка данных}

for i:=0 to 255 do

C[i]:=0;

for i:=1 to N do

C[A[i]]:=C[A[i]]+1;

for i:=1 to 255 do

C[i]:=C[i-1]+C[i];

for i:=N downto 1 do

begin

B[C[A[i]]]:=A[i];

C[A[i]]:=C[A[i]]-1; {здесь мы избегаем возможности записи двух одинаковых чисел в одну ячейку}

end;

{Вывод массива B}

…

End.

что дальше можно сделать