program tried01;

uses crt;

const n = 6;

var a : array[1..n] of integer;
    i,j,k,x : integer;

procedure rhminp;
  begin
    i:=1;
    repeat
      k:=i;x:=a[i];
      j:=i+1;
      repeat
        while a[j]<x do
          begin
            k:=j; x:=a[j];
          end;
        j:=j+1;
      until j > n;
      a[k]:=a[i];
      a[i]:=x;
      i:=i+1;
    until i>=n
  end;

procedure vstup;
var pom:integer;
 begin
 writeln('**************************************************');
  for i:=1 to n do
    begin
      write('Zadaj ',i,'. prvok ciselneho pola A :  ');
      readln(pom);
      a[i]:=pom;
    end;
 writeln('**************************************************');
 end;

procedure vystup;
var pom:integer;
 begin
 writeln('Tlac zotriedeneho pola ');
 writeln('**************************************************');
  for i:=1 to n do
    begin
      writeln('A[',i,'] = ', a[i]);
    end;
 writeln('**************************************************');
 end;

begin
 clrscr;
 vstup;
 rhminp;
 vystup;
 readln;
end.