program rendezeses;

uses crt;

type Tlapok=array[1..10] of integer;

const n=10; nkob=1000;

var i: integer;
    lap, prior: Tlapok;

procedure csere(var a, b: integer);
  var temp: integer;
  begin
    temp:=a;
    a:=b;
    b:=temp;
  end;

procedure rendez(var tomb, prior: Tlapok);
{ Minimumkiv laszt sos rendez‚s}
  var i, j, min, temp: integer;
  begin
    for i:=1 to n-1 do
      begin
        min:=i;
        for j:=i+1 to n do
          if prior[min]>prior[j] then
            min:=j;
        csere(tomb[i],tomb[min]);
        csere(prior[i],prior[min]);
      end;
  end;

begin
  clrscr;
  randomize;
  writeln('Kever‚s rendez‚ssel');
  writeln;
  for i:=1 to n do
    begin
      lap[i]:=i;
      prior[i]:=random(nkob)+1;
    end;
  rendez(lap,prior);
  for i:=1 to n do
    write(lap[i], '; ');
  readln;
end.