program Bublinkove_Trideni;

uses CRT;  const N = 10;

type Pole = array[1..N] of integer;

var i:integer;    A:Pole;

procedure BublinkoveTrideni(var A: Pole);

 {zacatek deklarace procedury BublinkoveTrideni}

var i,j: integer;                            {indexy prvku}  

  X: integer;                                {pro vymenu prvku}

  begin  for i:=2 to N do  

    for j:=N downto i do      if A[j-1] > A[j] then {vymenit sousedni prvky}

    begin X:=A[j-1]; A[j-1]:=A[j]; A[j]:=X  end

   end;     { konec deklarace procedury BublinkoveTrideni}

begin { zacatek tela programu}

writeln('Zadej netridena cisla:');

for i:=1 to N do read(A[i]);

BublinkoveTrideni(A);              {volani procedury BublinkoveTrideni}

writeln('Setrideno:');

for i:=1 to N do write(A[i]:5);  repeat until keypressed;

end.