Something

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 }