Warunkowanie IF <> 'wszystkich elementów tablicy' stringów.

Witam,
Otóż mam taki problem [znów], że staram się zrobić instrukcje warunkową która sprawdza czy wpisana komenda(string) znajduje się w wcześniej określonej tablicy stringów w [const].

Próbowałem już z pętlą for ale wtedy mi 16x [tyle mam komend w sumie] wypisywało 'zła komenda' więc to odpada. Nie bardzo też potrafię użyć warunku

if ruch not in kmd then writeln('zla komenda');

część kodu:

const
kmd:array [1..3] of string = ('tak', 'nie', 'poz');

var
ruch:string;
{...}

if ruch <> kmd{nie bardzo wiem jak to wstawić} then
writeln('zla komenda');

{reszta kodu}

Chyba chodzi o coś takiego:

const
  kmd : array[1..3] of string = ('tak', 'nie', 'poz');
var
  I : Byte;
  Ok : boolean;
  Ruch : string;
begin
  Ruch := 'twoja komenda';
  Ok := False;
  for I := Low(Kmd) to High(Kmd) do
  begin
    Ok := Ruch = Kmd[I];
    if Ok then
    begin
      Break;
    end;
  end;
  if Ok then
  begin
    Writeln('Dobra komenda');
  end
  else
  begin
    Writeln('Zla komenda');
  end;
  Readln;
end.

mmmmmmmmmm miej więcej o to chodziło, dostosowałem do swoich potrzeb, dzięki:)