Сравнение нажатой клавиши с эл-ом массива

[usual_man]

Ребят, помогите написать процедуру для сравнения нажатой клавиши клавиатуры с элементом массива. Например, первый эл-т массива буква "j", я нажимаю клавишу "j" и переход к следующему эл-ту массива.

[Jaguar83]

Могу предложить следующее решение
в Delphi

var
  pnt: Integer;
  arr: array[1..8] of Char = ('a','b','c','d','e','f','g','h');

procedure TForm1.FormCreate(Sender: TObject);
begin
pnt:=1;
end;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if(arr[pnt] = Key) and (pnt <= High(arr)) then 
  Inc(pnt);
end;

В паскале будет примерно так

pnt:=1;
while not(c = '0') do
begin
  c:=Readkey;
  if(arr[pnt] = c) and (pnt <= High(arr)) then 
    Inc(pnt);
end;

[usual_man]

Спасибо: Ваш алгоритм работает.