Выяснить, является ли один из массивов подмножеством другого

const
  n=5;
  m=4;
 
function comp(a,b:array of integer):boolean;
var
  j,i:integer;
  res:boolean;
begin
  Res:=false;
  for i:=Low(a) to High(a) do
    begin
      if i=High(b) then
        break;
      if a[i]=b[Low(b)] then
        begin
          Res:=true;
          for j:=Low(b) to High(b) do
            begin
              if a[j+i]<>b[j] then
                begin
                  Res:=false;
                  break;
                end;
            end;
          if Res then
            exit;
        end;
    end;
  comp:=res;
end;
 
var
  x:array [1..n] of integer;
  y:array [1..m] of integer;
  i:integer;
begin
  writeln('Введите массив Х (5): ');
  for i:=1 to n do
    readln(x[i]);
  writeln('Введите массив Y (4) : ');
  for i:=1 to m do
    readln(y[i]);
  if comp(x,y) then
    writeln(' Y входит в X.');
  readln;
end.