Даны два целочисленных массива а и 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-> t=subarr[0]);   result: =-1;   foreach var i in ii do       if arr[i: i+ns].zip(subarr,(a,b)-> a=b).all(t-> t) then begin           result: =i;           exit           end end; begin   var a: =readarrinteger('введите элементы: ',readinteger('n='));   var b: =readarrinteger('введите элементы: ',readinteger('n='));   var p: integer;   if a.length< b.length then begin       p: =subarray(a,b);       if p> -1 then writeln('первый массив является подмассивом с позиции ',p+1)       else writeln('подмассив не обнаружен')       end   else begin       p: =subarray(b,a);       if p> -1 then writeln('второй массив является подмассивом с позиции ',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 подмассив не обнаружен

Ответ у марата флешка  32гб