[Kapitoshka438]

Код:

const
  N = 10;

var
  A: array [1..N] of Integer;

function Exists(X: Integer): Boolean;
var
  I: Integer;
begin
  Result := False;
  for I := 1 to N do
    if A[i] = X then
    begin
      Result := True;
      Exit;
    end;
end;

procedure BuildArray;
var
  I, T: Integer;
begin
  for I := 1 to N do
    A[i] := 0;
  for I := 1 to N do
  begin
    repeat
      T := Random(N) + 1
    until
      not Exists(T);
    A[i] := T;
  end;
end;