Составьте программу вычисления суммы тех элементов одномерного массива A (N),что одновременно встречаются в массиве B (N)

const  nmax=100; var  a,b:array[1..nmax] of integer;        i,j,n1,n2,s:integer;         p:boolean; begin  randomize;  repeat    write('Размер массива A = ');    readln(n1);  until n1 in [1..nmax];  writeln;  writeln('Массив A: ');  for i:=1 to n1 do    begin      a[i]:=random(15);      write(a[i],' ');    end;  writeln;  writeln;  repeat    write('Размер массива B = ');    readln(n2);  until n2 in [1..nmax];  writeln;  writeln('Массив B: ');  for i:=1 to n2 do    begin      b[i]:=random(15);      write(b[i], ' ');    end;  s:=0;  for i:=1 to n1 do    begin      p:=false;      j:=1;      while (j<=n2) and not p do        if b[j]=a[i] then p:=true        else          inc(j);      if p then inc(s,a[i]);    end;  writeln;  writeln;  writeln('Сумма = ',s); end.