Проблема с процедурами. Опции

[Zork]

Дело в том, что у нас в Политехническом институте нужно сделать 9 лабараторных робот до екзаменов. Я сделал все кроме одной. В восьмой работе нужно было создать програму сортировки массива.

Задача: Существует массив. Отсортировать его по возрастанию.

Код

program sortplus;
const n=10;
var a:array[1..n] of integer;
i,j,b:integer;
begin
writeln('Введите массив из ',n,' чисел');
for i:=1 to n do readln(a[i]);
for i:=1 to n-1 do
for j:=1 to n-1 do
if a[j]>a[j+1] then
begin
b:=a[j];
a[j]:=a[j+1];
a[j+1]:=b;
end;
write('Получившийся массив');
for i:=n downto 1 do write(' ',a[i]);
readln;
end.

Я эту прогу написал. Но в девятой работе моя задача такова: Добавить процедуры в эту прогу. Не нужно менять код программы - только добавить процедуры. Помогите пожалуйста. Я не знаю как это сделать. Заранее огромное спасибо.

Сообщение отредактировано: Zork - 13.12.2004 11:15