Помогите пожалуйста!!! Oбработка одномерных числовых массивов

[4ertovo4ka]

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

[Stilet]

Без процедур знаешь как делать?
Вообще хотя бы массив ввести сможешь?

[4ertovo4ka]

program l_5;
const n=5; //константа,определяющая размерность массива
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
  write ('[',i,']=');
  readln (x[i])
  end;
 writeln
end;
begin
  writeln('A:');
  v(a);  //инициализируем и выводим массив на экран
  writeln('B:');
  v(b);
  sum:=0;
  for i:=1 to n do
   begin
    j:=0;f:=true; //обнуляем номер элемента массива
    repeat
       inc(j);             //b+1
       if a[i]=b[j] then f:=false //если i элемент массива а= 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.

[Stilet]

Ну если речь идет о оформлении то:

program l_5;
const n=5; //константа,определяющая размерность массива
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
  write ('[',i,']=');
  readln (x[i])
  end;
 writeln
end;

procedure aga;
var i,j:integer;
begin
  for i:=1 to n do
   begin
    j:=0;f:=true; //обнуляем номер элемента массива
    repeat
       inc(j);             //b+1
       if a[i]=b[j] then f:=false 
//если i элемент массива а= j элементу массива b то делаем вывод, что одинаковый элемент найден
    until (j=n)or(not f); 
 //конец цикла не наступит до тех пор пока элемент j=n или не найдется одинаковый элемент в обоих массивах
    if f then sum:=sum+a[i];
   end;
end;

procedure ugu;
var i,j:integer;
begin
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;
end;


begin
  writeln('A:');
  v(a);  //инициализируем и выводим массив на экран
  writeln('B:');
  v(b);
  sum:=0;

  aga(); ugu();
  

  writeln('сумма элементов, встречающихся только в одном из массивов: ',sum)
end.

[4ertovo4ka]

огромное спасибо