Anonymous

procedure generacja(n,z:integer; var a:t);
var i,q,k,e,j:integer;
begin

  for i:=1 to n do
  begin
   a[i]:= random(z)+1;
   e:=i-1;
   q:=i-1;
   k:=1;
   if i>1 then
   begin
   repeat
   for j:=1 to e do
   if a[i]=a[j] then
   a[i]:= random(z)+1;
   j:=0;
   repeat
   j:=j+1;
   if a[i]<>a[j] then k:=1
   else k:=0;
   until (j=q) or (k=0);
   until k=1;
   end;
  end;

end; { generacja }