Задача. Сортировка массива + графика Опции

[kant]

Написать программу, в результате выполнения которой упорядочиваются данные 20 чисел. По ходу выполнения программы получать на каждом шаге сортировки диаграмму, отражающую текущее состояние упорядочиваемой последовательности чисел (в высоте столбцов), задерживать ее на некоторое время на экране и затем уничтожать.

С упорядочиванием проблем нет, ввожу одномерный массив из 20 чисел и упорядочиваю их по возрастанию, а вот графику осилить не получается . Помогите пожалуйста...

[Гость]

Вот программа сортировки:

Код

for i:=1 to n do
   readln(x[i]);
   repeat
      flag:=true;
      for i:=1 to n-1 do
       if x[i]>0 then
        for j:=i+1 to n do
         if (x[j]>0)and(x[j]<x[i]) then
          begin
             temp:=x[i];
             x[i]:=x[j];
             x[j]:=temp;
             flag:=false;
         end;
   until flag;
   writeln;
   for i:=1 to n do
   writeln(x[i]); <---- вот это как надо скорее всего убрать?

Вот непосредственно та часть процедуры которую мне, как я понял, надо использовать.

Код

Uses Graph;
Const
  amount = 10;
  Procedure DrawGistogram(place: Integer;
  arr: Array of Integer; Color: Integer);
  Var
    i, size_x, Top: Integer;
    left, right: integer;
    start, range:
      Record
        x, y: Integer;
      End;
    s: string;

    numGeneral: integer;
  Begin
    Start.X := 1;
    Start.Y := GetMaxY;

    SetColor(White);
    SetBkColor(Black);
    Range.X := GetMaxX div 2;
    Range.Y := GetMaxY div 2;

    numGeneral := 0;
    for i := 0 to pred(amount) do
      inc(numGeneral, arr[i]);

    Line(Start.X, Start.Y, Start.X, Start.Y);

    size_x := Range.X div amount;
    SetFillStyle(SolidFill, Color);
    For i := 0 To Pred(amount) Do
      Begin
        left := Start.X + i * size_x;
        right := left + size_x;
        top := Start.Y - Trunc( Range.Y * arr[i] / NumGeneral );
        bar3d(left + 1, top + 1, right - 1, Start.Y - 1, 15, true);

        str(arr[i], s);
        outtextxy( left, Start.Y + 3, s );
      End;
  End;

И еще вопрос: упорядоченные числа же надо как то выводить, но как это сделать в графическом режиме...