program hoszt;

uses crt;

const n=10; k=4;

var hn, i, j, lap: integer;
    van: boolean;
    htabla: array[1..8,1..2] of integer;

procedure keres(i, hol: integer; var van: boolean; var hi: integer);
  var k: integer;
  begin
    k:=1;
    while (k<hn) and (htabla[k,hol]<>i) do
      k:=k+1;
    van:=(htabla[k,hol]=i);
    hi:=k;
  end;

procedure beir(x: integer; var hn: integer);
  begin
    hn:=hn+1;
    htabla[hn,1]:=x;
    htabla[hn,2]:=x;
  end;

procedure hcsere(i,j: integer);
  var hi, hj, temp: integer;
      van: boolean;
  begin
    keres(i,1,van,hi);
    if not van then
      begin
        beir(i,hn);
        hi:=hn;
      end;
    keres(j,2,van,hj);
    if not van then
      begin
        beir(j,hn);
        hj:=hn;
      end;
    temp:=htabla[hi,2];
    htabla[hi,2]:=htabla[hj,2];
    htabla[hj,2]:=temp;
  end;

begin
  clrscr;
  randomize;
  writeln('Oszt s has¡t¢t bl val');
  writeln;
  hn:=0; { a has¡t¢t bla inicializ l sa: }
  for i:=1 to k do
    begin
      j:=random(n-i+1)+i;
      hcsere(i,j);
    end;
  for i:=1 to k do
    begin
      keres(i,1,van,j);
      if van then
        lap:=htabla[j,2]
      else
        lap:=i;
      write(lap, '; ');
    end;
  readln;
end.