Vizualizacia bubblesortu v pascale

uses crt,graph;
const n=640;
var a:array[1..n]of integer;
    i,hlp,b,c,dr,mo:integer;
procedure vypis;
 var i:integer;
begin
 setcolor(white);
 for i:=1 to n do begin line(i-1,479-a[i],i-1,479);
                  end;
end;
begin
 randomize;
 clrscr;
 for i:=1 to n do a[i]:=random(480)+1;
 detectgraph(dr,mo);
 initgraph(dr,mo,'c:\tp\bgi');
 vypis;
 readkey;
 b:=n-1;
 repeat
   c:=0;
   for i:=1 to b do begin if a[i]>a[i+1] then begin
                                                    hlp:=a[i];
                                                    a[i]:=a[i+1];
                                                    a[i+1]:=hlp;
                                                    c:=1;
                                                    setcolor(15);
                                                    line(i,479,i,479-a[i+1]);
                                                    setcolor(0);
                                                    line(i-1,0,i-1,478-a[i]);
                                              end;
                    end;
   b:=b-1;
until (c=0)or(keypressed);
readkey;
end.