Динамический массив Делфи

[Asira]

Даны два целочисленных массива. Можно ли в первом из них выбрать N подряд идущих элементов, чтобы они шли подряд в той же последовательности во втором? Вывести эту последовательность. Создавать дополнительный массив, множество или другую структуру нельзя. Мой вариант. но он работает не правильно... точнее я не знаю как сделать чтобы выводилась последовательность именно из n элементов
a:0001001010
b: 1101000000 Вывод- совпадение - 0100 совпадение 0 совпадение 000 не выводит случаи - совпадение 01 совпадение 100 совпадение 010 Подскажите где искать ошибку?!

{$APPTYPE CONSOLE}

uses
  SysUtils;
procedure vvod(var a:array of byte;n:byte);
  var i:byte;
  begin
  for i:=0 to high(a) do a[i]:=random(5);
  end;
procedure vivod(a:array of byte);
  var i:byte;
  begin
  for i:=0 to high(a) do write(a[i],' ');
  writeln;
  end;
procedure Mogno(a,b:array of byte;n:byte);
  var i:byte;
  begin
  i:=0;
  while i<>n do
  begin
  if (a[i]=b[i]) and (a[i+1]=b[i+1]) then
  begin
  writeln('sovpadenie:');
  while a[i]=b[i] do
  begin
  write(a[i],' ');
  inc(i);
  end;
  writeln;
  end
  else
  inc(i);
  end;
end;
var a,b:array of byte;
     n:byte;
begin
  write('n= '); readln(n);
  setlength(a,n);
  setlength(b,n);
  randomize;
  vvod(a,n);
  vivod(a);
  vvod(b,n);
  vivod(b);
  Mogno(a,b,n);
  readln; end.

[eoln]

m - размерность массива
n - кол-во подряд идущих элементов
Выводятся всевозможные совпадения

procedure vvod(var a:array of byte);
var
  i:byte;
begin
  for i:=0 to high(a) do a[i]:=random(2);
end;

procedure vivod(a:array of byte);
var
  i:byte;
begin
  for i:=0 to high(a) do write(a[i],' ');
  writeln;
end;

procedure print(a: array of byte; p, n: byte);
var
  i: byte;
begin
  for i := p to p + n - 1 do write(a[i], ' ');
  writeln
end;

procedure Mogno(a,b:array of byte;n:byte);
var
  i, j, k: byte;
  bool: boolean;
begin
  for i := 0 to high(a) - n + 1 do
  for k := 0 to high(b) - n + 1 do
  begin
    bool := true;
    for j := 0 to n - 1 do
      if a[j + i] <> b[j + k] then bool := false;
    if bool then print(a, i, n)
  end
end;

var
  a, b: array of byte;
  n, m: byte;
begin
  write('m = ');
  readln(m);
  write('n = ');
  readln(n);
  setlength(a, m);
  setlength(b, m);
  randomize;
  vvod(a);
  vivod(a);
  vvod(b);
  vivod(b);
  Mogno(a,b,n);
  readln
end.