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

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... Можно сразу проверять это в начале программы...

Для случая массива из 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.

2.

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