Верно ли, что все члены последовательности b1,..., bn входят в последовательность a1,..., a25

Const m=5;
Var A,B:array[1..m] of integer;
    i,j,n,t:byte;
Begin
    For i:=1 to m do
    Begin
      write('A[',i,'] = ');
      readln(A[i]);
    End;
    write('Введите N: ');readln(n);
    For i:=1 to n do
    Begin
      write('B[',i,'] = ');
      readln(B[i]);
    End;
    For i:=1 to n do
    Begin
      t:=0;
      For j:=1 to m do
       if B[i]=A[j] then t:=1;
      if t=0 then break;
    End;
    writeln(t=1);
    readln;
End.

Const m=25;//размерность массива A
Var A,B:array[1..m] of integer;
    i,j,n,t:byte;
Begin
    For i:=1 to m do //заполняем числами с клавиатуры массив A
    Begin
      write('A[',i,'] = ');
      readln(A[i]);
    End;
    write('Введите N: ');readln(n);
    For i:=1 to n do //заполняем числами с клавиатуры массив B
    Begin
      write('B[',i,'] = ');
      readln(B[i]);
    End;
    For i:=1 to n do //в цикле проверяем все элементы массива B
    Begin
      t:=0;
      For j:=1 to m do //на вхождение в массив A
       if B[i]=A[j] then t:=1; //если элемент массива B есть в массиве A то ставим в t:=1
      if t=0 then break; //если какого то элемента массива B нету в массиве A прерываем цикл
    End;
    writeln(t=1);//выводим true или false в зависимости от выполнения условия
    readln;
End.