В двух одномерных массивах найти количества элементов, которые встечаются только в первом или во втором - Turbo Pascal

Формулировка задачи:

В двух одномерных массивах найти количества элементов, которые встечаются только в первом или во втором массивах. что не так, подскажите
uses crt;
var
    mas1:array[1..1000] of longint; mas2:array[1..1000] of longint; i,k,p,j:longint;
begin
clrscr;
for i:=1 to 10 do
    begin
    mas1[i]:=random(50)+1;
    write(mas1[i]:4);
    end;
    writeln;
      for j:=1 to 10 do
    begin
    mas2[j]:=random(50)+1;
    write(mas2[j]:4);
    end;
 for i:=1 to 10 do
  begin
   j:=1;
   k:=0;
 repeat
   if (mas1[i]=mas2[j]) then
    j:=j+1
     else
   if (mas1[i]<>mas2[j]) then
   begin
     if (j<10) then
 
    j:=j+1
     else
    if (j=10) then
    begin
    p:=p+1;
    j:=j+1;
    end;
    end;
 until j>10;
 k:=k+p;
 end;
 writeln;
  writeln ('k=',k);
  readln;
end.

Код к задаче: «В двух одномерных массивах найти количества элементов, которые встечаются только в первом или во втором - Turbo Pascal»

textual
k:=0;
For i:=1 to n do;
   begin
      L:=0;    
      For j:=1 to m do;
         If mas1[i] = mas2[i] then L=1;
      If L=0 then inc(k);
    end;
Writeln(k);

11   голосов, оценка 4.273 из 5


СОХРАНИТЬ ССЫЛКУ