Пересечение массивов.

uses crt;
var a,b:array[1..100] of integer;
    na,nb,i,j,k,p,t:integer;
begin
clrscr;
randomize;
write('Размер массива А=');
readln(na);
writeln('Введите ',na,' элементов массива:');
for i:=1 to na do
 begin
  write('a[',i,']=');
  readln(a[i]);
 end;
write('Размер массива B=');
readln(nb);
writeln('Введите ',nb,' элементов массива:');
for i:=1 to nb do
 begin
  write('b[',i,']=');
  readln(b[i]);
 end;
clrscr;
writeln('Масcив А:');
for i:=1 to na do
write(a[i],' ');
writeln;
writeln;
writeln('Масcив B:');
for i:=1 to nb do
write(b[i],' ');
writeln;
writeln;
i:=1;
while i<=na do
 begin
  j:=i;t:=0;
  while j<=nb do
  if a[i]=b[j] then{если нашли общий элемент}
   begin
    t:=1;
    for k:=i to na-1 do{удаляем его из первого массива}
    a[k]:=a[k+1];
    na:=na-1;
    for p:=j to nb-1 do{тоже из второго}
    b[p]:=b[p+1];
    nb:=nb-1;
    break;{прекращаем с этим элементом, пара удалена}
   end
  else j:=j+1;{не пара, дальше по j}
  if t=0 then i:=i+1;{нет ни одной пары этому элементу, дальше}
 end;
if (na=0)and(nb<>0) then write('Массив А входит в массив В')
else if(nb=0)and(na<>0) then write('Массив B входит в массив A')
else if(nb=0)and(na=0) then write('Массив B=массиву A')
else writeln('Массивы не входят друг в друга');
readln
end.