Pascal

//BUBBLE SORT
procedure TForm1.Button1Click(Sender: TObject);
var a:array[1..n] of integer;
  i,j,p,k,o :integer;
begin

for i:=1 to n do      //vytvori nahodne cisla
    a[i]:=random(90)+10;

for i:=1 to n do
  image1.Canvas.TextOut(i*25,10,inttostr(a[i]));

  for i:=1 to n-1 do        //sort
  for j:=1 to n-i do
      begin
      inc(o);
      if a[j]>a[j+1] then begin
                          k:=a[j];
                          a[j]:=a[j+1];
                          a[j+1]:=k;
                          end;
                          end;
for i:=1 to n do
 image1.Canvas.TextOut(i*25,40,inttostr(a[i]));
 image1.canvas.textout(20,60, 'Počet ifov: '+inttostr(o));
end;