procedure VYBER(var A:TYPPOLE;  {Razene pole     }
                N:integer       {Pocet prvku pole});
          {Procedura seradi pole vzestupne vyberem nejvetsiho prvku}

var I,J,M : INDEX;
    X,MAX : integer;

begin
  for I := N downto 2 do
    begin
    M := I;
    MAX := A[I];
    for J := 1 to I-1 do
      if A[J]>MAX then begin
                         M := J;
                         MAX := A[J]
                       end;
    X := A[I];
    A[I] := A[M];
    A[M] := X
  end
end; {Procedura VYBER}