Задача на одномерный массив

[Егор93]

Подскажите пожалуйста, если можно как будет выглядить программа для задачи: Даны два массива по 15 целых чисел в каждом. Найти все числа - элементы первого массива, которые не входят во второй и сформировать из них новый массив.:confuse d:

[(0_o)]

program n1;
uses crt;
type
t = array[1..15] of integer;
var a,b,c:t; i,j,n,m,q:integer;
begin
clrscr;
randomize;
n:=15;
for i:=1 to n do
begin
a[i]:=random(15);
b[i]:=random(15);
end;
writeln('massiv 1 :');
writeln;
for i:=1 to n do
write(a[i], ' ');
writeln;
writeln('massiv 2 :');
writeln;
for i:=1 to n do
write(b[i], ' ');
m:=0;
q:=0;
for i:=1 to n do
begin
for j:=1 to n do
begin
if a[i] = b[j] then
q:=q+1;
end;
if q = 0 then
begin
inc(m);
c[m]:=a[i];
q:=0;
end
else
q:=0;

end;

writeln;
writeln('otvet :');
writeln;
for i:=1 to m do
write(c[i], ' ');

end.

Примерно так