сортировка

[s.talke.r]

нужно переобразовать данный код программы с помощью процедур и функции, методом пошаговой детализации. Кто сможет помогите.
Сортировка методом пузырька

Program abc;
var a:array [1..20] of integer;
i,temp,change:integer;
      begin 
      writeln('введите элементы массива');
      for i:=1 to 8 do
           begin 
           write ('a[',i,']= ');
           readln(a[i]);
   end;
writeln;
change:=-1;
while change<>0 do
begin
   change:=0;
   for i:=2 to 8 do
   if a[i]>a[i-1] then
   begin
    inc(change);
    temp:=a[i-1];
    a[i-1]:=a[i];
    a[i]:=temp;
    end;
end;
writeln('сходный массив');
for i:=8 downto 1 do
   write(a[i],' ');
writeln;
readln;
end.

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