[ART]

Так что ли:

Код:

 type 
   TMass = array of string;

  ....

  function StrExists(S:string; M: TMass): integer;
  var
   i: integer;
  begin
   for i := 0 to High(M) do
    if M[i] = S then begin
      Result := i;
      exit;
    end;
   Result := -1;
  end;