(***************************************************************************)

(* Procedure to execute bubble sort                                        *)

procedure bublsort;

var
     temp:integer;  {hold number for swapping purposes}

var
     count,            {counter to be used in sort}
     counter:integer;  {counter to used in for loop}

     begin  {bublsort}

          for counter:=1 to (MAX - 1) do
               for count:=1 to (MAX - counter) do
                    if numbers[count] > numbers[count + 1] then
                         begin  {if statement}
                              temp:=numbers[count];
                              numbers[count]:=numbers[count + 1];
                              numbers[count + 1]:=temp;
                         end    {if statement}

     end;   {bublsort}