Даны два целочисленных массива А и B размерностью N и M

Олимпиада ДОННТУ?

PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018
Внимание! Если программка не работает, обновите версию!

function SubArray(subarr,arr:array of integer):integer;
begin
  var ns:=subarr.Length;
  var p1:=arr.Length-ns; // поиск на [0..p1]
  var ii:=arr[:p1+1].IndexesOf(t-gt;t=subarr[0]);
  Result:=-1;
  foreach var i in ii do
    if arr[i:i+ns].Zip(subarr,(a,b)-gt;a=b).All(t-gt;t) then begin
      Result:=i;
      exit
      end
end;

begin
  var a:=ReadArrInteger('Введите элементы:',ReadInteger('n='));
  var b:=ReadArrInteger('Введите элементы:',ReadInteger('n='));
  var p:integer;
  if a.Lengthlt;b.Length then begin
    p:=SubArray(a,b);
    if pgt;-1 then Writeln('1-ый массив является подмассивом с позиции ',p+1)
    else Writeln('Подмассив не найден')
    end
  else begin
    p:=SubArray(b,a);
    if pgt;-1 then Writeln('2-ой массив является подмассивом с позиции ',p+1)
    else Writeln('Подмассив не найден')
    end
end.

Образцы
n= 4
Введите элементы: 1 2 3 4
n= 11
Введите элементы: 0 1 2 3 1 4 1 2 3 4 5
Первый массив является подмассивом с позиции 7

n= 4
Введите элементы: 1 2 3 5
n= 11
Введите элементы: 0 1 2 3 1 4 1 2 3 4 5
Подмассив не найден