Два одномерных массива A и B. Сформировать два новых массива. Паскаль. Где ошибка в коде?

[Tomny]

даны два одномерных массива A и B. Сформулировать два массива X из А элементов не входящих в B и Y из B элементов не входящих в А

Program first;
 const nmax1=10;
       nmax2=15;
 type mas1=array[1..nmax1] of integer;
      mas2=array[1..nmax2] of integer;
 var
    a:mas1; b:mas2;
    x,y:integer;
    k,l:integer;
 procedure Vvod(var m:mas1;var n:mas2);
  var i,j:byte;
 begin
  write('Введите элементы массива:');
   for i:=1 to nmax1 do read(m[i]);
  write('Введите элементы массива:');
   for j:=1 to nmax1 do read(n[j]);
  writeln;
   for i:=1 to nmax1 do write(m[i],' ');
   for j:=1 to nmax1 do write(n[j],' ');
  writeln;
 end;
 procedure obr(m:mas1;n:mas2;k,l:integer);
 var
  p,q:array[1..nmax1] of integer;
  i,j:integer;
 begin
  for i:=1 to nmax1 do
  begin
   for j:= 1 to nmax2 do
   begin
    if m[i]<>n[j] then
     begin
      k:=k+1;
      p[k]:=m[i];
     end;
   end;
  end;
   for j:=1 to nmax2 do
    begin
     for i:=1 to nmax1 do
      begin
       if n[j]<>m[i] then
        begin
         l:=l+1;
         q[l]:=n[j];
        end;
      end;
    end;
   end;
begin
  k:=0;
  l:=0;
  Vvod(a,b);
  obr(x,y,k,l);
  while k>0 do
   begin
    write(X[k]);
    k:=k-1;
   end;
  while l>0 do
   begin
    write(y[l]);
    l:=l-1;
   end;
end.

на месте obr(x,y,k,l); пишет ошибку:нельзя преобразовать выражение типа integer к типу array[1..10] of integer.
Как исправить??

[Noname11]

p,q:array[1..nmax1] of integer;

nmax1-где эта переменная?ты ее в процедуре не указал

if m[i]n[j]-что за условие?


_____________________________
Не надо плодить подряд несколько коротких сообщений!
Это нарушение правил...
для того, чтобы через минуту/другую дописать сообщение,
не надо создавать ещё один новый пост.
нажимайте на предыдущем кнопку "Правка"
и дописывайте в своё сообщение, что Вы хотели добавить!

Модератор.