Вычисление суммы элементов массива, встречающихся только в одном из массивов

const n=10;
type mas=array[1..n] of integer; 
var a,b:mas;
    i,j,sum:integer;
    f:boolean;
procedure v(var x:mas);
var i:integer;
begin
 for i:=1 to n do
  begin
   x[i]:=-5+random(11);
   write(x[i],' ')
  end;
 writeln
end;
begin
  randomize;
  writeln('A:');
  v(a);
  writeln('B:');
  v(b);
  sum:=0;
  for i:=1 to n do 
   begin
    j:=0;f:=true;
    repeat 
       inc(j);
       if a[i]=b[j] then f:=false
    until (j=n)or(not f);  
    if f then sum:=sum+a[i];
   end;
   for i:=1 to n do 
   begin
    j:=0;f:=true;
    repeat 
       inc(j);
       if b[i]=a[j] then f:=false
    until (j=n)or(not f);  
    if f then sum:=sum+b[i];
   end;
  writeln('сумма элементов, встречающихся только в одном из массивов: ',sum)
end.

const n=10;{константа, определяющая размерность массива}
type mas=array[1..n] of integer; {описываем тип данных mas, содержащий n элементов целого типа}
var a,b:mas;{2 массива, по условию}
    i,j,sum:integer;{i,j - счетчики циклов, sum - переменная, где будет накаплиаться сумма}
    f:boolean;{флаг(используется, например, для выхода из цикла, кога выполняется <условие>)}
procedure v(var x:mas);{ввод массивов}
var i:integer;
begin{начало процедуры ввода массива}
 for i:=1 to n do{для каждого элемента}
  begin{начало цикла}
   x[i]:=-5+random(11);{для каждого элемента, присваиваем случайное значение в диапазоне[-5;5]}
   write(x[i],' '){выводим значение каждого элемента массива}
  end;{конец цикла}
 writeln{переводим курсор в начало следующей строки}
end;{конец процедуры}
begin
  randomize;{при каждом перезапуске програмы массивы будут разными}
  writeln('A:');{выводим на экран A:}
  v(a);{инициализируем и выводим массив a}
  writeln('B:');{выводим на экран B:}
  v(b);{инициализируем и выводим массив a}
  sum:=0;{обнуляем сумму}
  for i:=1 to n do{для каждого элемента массива a} 
   begin
    j:=0;f:=true;{обнуляем номер элемента массива b}
    repeat {повторять}
       inc(j);{увеличиваем номер элемента массива b на 1}
       if a[i]=b[j] then f:=false{если i элемент массива a = j элементу массива b то ставим флаг, что одинаковый элемент найден}
    until (j=n)or(not f);{конец цикла, до тех пор когда j элемент массива срвняется с n или найден одинаковый элемент в обоих массивах}
    if f then sum:=sum+a[i];{если такой элемент не найден, добавляем его к сумме}
   end;
   for i:=1 to n do {следующая часть, для другого массива - аналогично}
   begin
    j:=0;f:=true;
    repeat 
       inc(j);
       if b[i]=a[j] then f:=false
    until (j=n)or(not f);  
    if f then sum:=sum+b[i];
   end;
  writeln('сумма элементов, встречающихся только в одном из массивов: ',sum){вывод результата}
end.