//Time Complexity O(n)
function Search(
  const Arr: TArray<Integer>;
  X: Integer): Integer;
var
  I: Integer;
begin
  for I := 0 to High(Arr) do
    if Arr[I] = X then
      Exit(I);
  Result := -1;
end;

var
  Items: TArray<Integer>;
begin
  Items := [2, 3, 5, 7, 11, 13, 17];

  WriteLn(Search(Items, 1));
  //-1
  WriteLn(Search(Items, 7));
  //3
  WriteLn(Search(Items, 19));
  //-1
end.