Sumar las distintas posiciones

Disculpa que te moleste otra vez, pero quisiera saber como se suman dos vectores independientemente entre si, me explico son dos vectores A y B con "n" valores cada uno y se deben sumar los valores de A con B y mostrarlos en otro vector C y en otro vector DE mostrar los valores de C pero inversos:
ejemplo A:1,2,3 B:4,5,6
C:(1+4),(2+5),(3+6) o sea C: 5,7,9 y
D:9,7,5
Alcanze a llegar con el siguiente codigo pero quede entrancado y disculpa otra vez:
program numero_tres_guia_vectores;
uses
crt;
type
v= array [1..50] of integer;
var
a,b,c,d:v;
i,n:integer;
procedure carga_vector1;
begin
write('INGRESE EL TAMAÑO DEL VECTOR:');
readln(n);
for i:=1 to n do
begin
write('INGRESE EL VALOR a[',i,']:');
readln(a);
end;
end;
procedure carga_vector2;
begin
write('INGRESE EL TAMAÑO DEL VECTOR:');
readln(n);
for i:=1 to n do
begin
write('INGRESE EL VALOR b[',i,']:');
readln(b);
end;
end;
procedure suma
begin
for i:=1 to n do
begin
c:=a+b;
end;
write(c:2);
end;
begin
carga_vector1;
carga_vector2;
suma;
end.