Одномерные массивы, Вхождение одного массива в другой Опции

[Nina]

Есть такая задачка:
Имеется 2 одномерных массива X и Y. Проверить входит ли последовательно массив Y в массив X и с какой позиции.
Например X состоит из чисел 1 2 3 4 5 6, а Y из 2 3 4, тогда входит со второй позиции.
Но в моем решении мне не удается проверить входит ли Y в X именно последовательно, т.е если
Y даже 1 3 4 то программа пишет, что входит.

[volvo]

const
  len_x = 6;
  x: array[1 .. len_x] of integer =
    (1, 2, 3, 4, 5, 6);

  len_y = 3;
  y: array[1 .. len_y] of integer =
    (4, 5, 6);

var
  i, j: integer;
  found: boolean;

begin
  found := false;
  i := 1;
  while (i <= (len_x - len_y + 1)) and (not found) do begin
    j := 1;
    while (x[i + j - 1] = y[j]) and (j <= len_y) do inc(j);

    if j = succ(len_y) then begin
      writeln('Y is inside X from position = ', i);
      found := true;
    end
    else inc(i)
  end;

  if not found then writeln('Oops ...');

end.

Массив X должен быть большего размера, чем массив Y... Можно сразу проверять это в начале программы...