program Prime_Vkladani;

uses CRT; const N = 10;

type Pole = array[1..N] of integer;   var i:integer;  A:Pole;

procedure PrimeVkladani(var A: Pole); {zacatek deklarace procedury PrimeVkladani}

var i,j: integer;               {indexy prvku}

 X: integer;                 {pro vymenu prvku}

Hledat:Boolean;

begin  for i:=2 to N do            {zatridujeme cislo z pozice i}

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

  Hledat:=X<A[j];    while Hledat do             {hledani spravne pozice}

     begin  A[j+1]:=A[j]; j:=j-1; if j=0 then Hledat:=false

                                         else       Hledat:=X<A[j]

     end;

  A[j+1]:=X

   end

end;  {konec deklarace procedury PrimeVkladani}

begin

writeln('Zadej ', N, ' netridenych cisel:');  for i:=1 to N do read(A[i]);

PrimeVkladani(A);     {volani procedury PrimeVkladani}

writeln('Setrideno:');    for i:=1 to N do write(A[i]:5);

repeat until keypressed;

end.