Подпрограммы!

[pechenka]

Даны 2 одномерных массива А из 10 элементов и В из 15 элементов.Сформировать 2 новых массива Массив Х из элементов массива А,не входящих в массив В,и массив У из элементов массива В не входящих в массив А.
*********************************** *****************
Использовать подпрограммы.
Если можно объясните подробнее)))Набросал что-то !=========>
*********************************** *****************
program lol;
uses crt;
type mas=array[1..15] of real;
var
A,B,X,Y,m:mas;
i,n:integer;
procedure inmas( var m:mas;var n:integer);
var i:integer;
begin writeln('vvesti n=');
readln(n);
for i:=1 to n do
readln(m[i]);
writeln;writeln;
writeln('Massiv');
for i:=1 to n do
write(m[i]:3:0);
end;
function poiskX(A,B:mas):real;
var j,i:integer;el:real;
begin
for i:=1 to 10 do
begin
for j:=1 to 15 do
if A[i]=B[j] then i:=i+1
else
el:=A[i];
end;
poiskX:=el;
end;
function poiskY( A,B:mas):real;
var j,i:integer;el:real;
begin
for j:=1 to 15 do
begin
for i:=1 to 10 do
if B[j]<>A[i] then
el:=B[j];
end;
poiskY:=el;
end;
procedure utmas(m:mas);
var i:integer;
begin
for i:=1 to 15 do
write(m[i]:3:0);
end;
begin
clrscr;
writeln('vvod massiva A');
inmas(A,n);
writeln;
writeln('vvod massiva B');
inmas(B,n);
for i:=1 to 15 do
X[i]:=poiskX(A,B);
Y[i]:=poiskY(A,B);
writeln;
writeln('massiv X');
utmas(X);
writeln;
writeln;
writeln('massiv Y');
utmas(Y);
end.