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

[Nina]

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

[Altair]

Для случая массива из byte, интересен ИМХО такой вариант решения :

{$mode objfpc}
type
 schar = packed array[0..255] of char;
var
 x,y:schar;
 //i:byte;
begin
 writeln('X=');
 readln(x);
 writeln('Y=');
 readln(y);
 //for i:=0 to length(x) do write(x[i]:3);
 writeln(pos(y,x));
 readln;
end.

тесты.
1.

X=012345
Y=1234
2

2.

X=0123456
Y=0234
0

3. (я думал на таком тесте он завалится из-за 0 символа, но прошел на "ура")

X=023456
Y=123
0