Паскаль. Массив

[Studentka7777]

Помогите, пожалуйста, написать программку по массивам с использованием процедуры/функций.
Вот задание:
Даны две последовательности a1, a2, …an и b1, b2, …bm. (n>m). В каждой из них члены различны. Верно, ли что все члены второй последовательности входят в первую последовательность?

[Hacker19_90]

for i := 1 to m do
begin
    flag := false;
    for j := 1 to n do
    begin
        if b[i] = a[j] then 
        begin
            flag := true
            break;
        end;
    end;
    if flag = false then
    begin
        Writeln ('Неверно');
        break;
    end;
end;
Writeln ('Верно');

[Studentka7777]

огромное, человеческое спасибо тебе)))))