program BubbleSort;
var
  pole: array[1..20] of integer; {deklarace 20 prvku pole "pole"}
  i, j, pom: integer; {deklarace dvou promennych}
begin
  randomize; {spusti generator nahodnych cisel}
  for i:=1 to 20 do pole[i]:=random(100); {20 prvku pole naplni nahodnymi cisly od 0 do 99}
  for i:=1 to 20 do write(pole[i],' '); {vypise obsah vsech 20 prvku pole}

  {tady neco chybí}
  writeln('Serazene pole:');
  for i := 1 to 20 do write(pole[i], ' ');
end.


program BubbleSortExample;

var
  arr: array[0..15] of integer;
  i, j, temp: integer;

begin
  { Naplnění pole náhodnými hodnotami }
  for i := 0 to 15 do
    arr[i] := random(100);  { Náhodné čísla od 0 do 99 }

  { BubbleSort algoritmus }
  for i := 0 to 14 do
    for j := 0 to 14 - i do
      if arr[j] > arr[j + 1] then
      begin
        temp := arr[j];
        arr[j] := arr[j + 1];
        arr[j + 1] := temp;
      end;

  { Výpis setříděného pole }
  writeln('Setříděné pole:');
  for i := 0 to 15 do
    write(arr[i], ' ');

  readln;  { Počkej na stisk klávesy Enter }
end.