unit tomb_rend;
interface
uses tomb_io;
procedure minimum_rendezes(var a:tomb; hossz:byte);

implementation
procedure minimum_rendezes(var a:tomb; hossz:byte);
var i,j, index, ertek : integer;
begin
  for i:=1 to hossz-1 do
  begin
    index:=i;
    ertek:=a[i];
    for j:=i+1 to hossz do
      if a[j]<ertek then
      begin
        ertek:=a[j];
        index:=j;
      end;
    a[index]:=a[i];
    a[i]:=ertek;
  end;
end;

end.