Входят ли все элементы одного массива в другой

[Slim_py]

Входят ли все элементы одного одномерного массива в другой одномерный массив?
Вот что я чудил, но это не правильно и надо как-то исправить что бы ответ был четким "Да" или "Нет".. а у меня вообще непонятно что
Исправьте пожалуйста


program Nomer10;
const n=12;
var b:array[1..n] of integer;
a:array[1..10] of integer;
i,j,x:integer; k:string;
begin
k:='входит';
writeln('Введите массив а с неповторяющихся чисел');
for i:=1 to 10 do
readln(a[i]);
writeln('Введите массив b');
for j:=1 to n do
readln(b[j]);
for i:=1 to 10 do
for j:=1 to n do
if a[i]=b[j] then
writeln('Входит!');
end.

[Sna1L]

Алгоритм:
Заполняем 2 массива(рандом для удобства).
Сразу выводим.
Потом создаем 2 вложенных цикла с параметром и проверяем.
Проверку предлагаю организовать так:

for i:=1 to n do
begin 
  b:=false;
  for j:=1 to n do
    if (a1[i] = a2[j]) and not(j in mn) then //пара найдена
      begin
        mn:= mn + [j];
        b:=true;
        break;
      end;
  if b=false then begin writeln('Нет'); break; end; // значит пара не найдена
end;

if b = true then writeln('Да');

Где mn - множество индексов, которым подобрана пара, а b - булева переменная, для проверки найдена ли пара.

Хотя по-моему алгоритм нехороший у меня получился, лучше Вам самому подумать.

ЗЫ кстати если в массиваз числа не повторяющиеся(как у вас в коде написанно), то можно просто ограничиться двумя множествами и найти их разность