program boble;
uses Crt,graph,sysutils;
var
zmiana:boolean;
a:array[1..100] of integer;
n,i,e:integer;
pom,d,m:integer;
x1,x2,y1,y2:integer;
BEGIN
randomize;
x1:=70;
y1:=170;
x2:=170;
y2:=270;
clrscr;
writeln('podaj rozmiar tablicy');
readln(n);
writeln('podaj elementy tablicy');
for i:=1 to n do
begin
readln(a
[i]);
end;
zmiana:=true;

while zmiana do
begin
zmiana:=false;
for i:=1 to n-1 do
if a[i] > a[i+1] then
begin
pom:=a[i];
a[i]:=a[i+1];
a[i+1]:=pom;
zmiana:=true;

end;
end;
d:=DETECT;
InitGraph(d,m,'');
for i:=1 to n do
begin
delay(800);
setcolor(random(10)+1);
rectangle(x1+(i*100),y1,x2+(i*100),y2);
outtextxy(x1+(i*110),y1+50,inttostr(a[i]));

end;
readln;