Program Setrideni;

  (* Program, ktery vzestupne seradi prvky ciselne posloupnosti
     x[1], x[2], ... ,x[n]

     Program pracuje tzv. metodou opakovaneho hledani minima.

     Je vzdy nalezen nejmensi prvek x[j] podposloupnosti
       x[i], x[i+1], ... , x[n] pro 1<=i<n.
     Tento nalezeny prvek x[j] je vymenen s prvkem s prvnim
       prvkem podposloupnosti (x[i])
     Hledani pokracuje pro dalsi i (dokud i<n) *)

uses Crt;

const n=20;

var i,j,h:1..n;
    x:array[1..n] of integer;
    pom:integer;

begin
  ClrScr;

  x[ 1]:= 6; x[ 2]:=10; x[ 3]:=12; x[ 4]:= 8; x[ 5]:=99;
  x[ 6]:=30; x[ 7]:=21; x[ 8]:=54; x[ 9]:=27; x[10]:=53;
  x[11]:=22; x[12]:=23; x[13]:=45; x[14]:=47; x[15]:=93;
  x[16]:=78; x[17]:=95; x[18]:=35; x[19]:=62; x[20]:=51;

  WriteLn('Nesetridena posloupnost');
  WriteLn;
  for i:=1 to n-1 do
    Write(x[i],', ');
  WriteLn(x[n]);

  for i:=1 to n-1 do
  begin
    (* Najdi index j minimalniho prvku x[j]
       podposloupnosti x[i], x[i+1], ... , x[n] *)
    j:=i;
    for h:=i+1 to n do
      if x[h]<x[j] then j:=h;
    (* Vymen x[i] a x[j] *)
    pom:=x[i]; x[i]:=x[j]; x[j]:=pom;
  end;

  WriteLn('Setridena posloupnost');
  WriteLn;
  for i:=1 to n-1 do
    Write(x[i],', ');
  WriteLn(x[n]);
end.