Создать два массива одинаковой размерности. получить третий массив такой же размерности, каждый элемент которого равен сумме соответствующих элементов данных на паскале

Uses crt;
var a,b,c:array[1..100] of integer;
i,n:integer;
begin
writeln('Размер массивов?');
read(n);
writeln('Элементы 1-го массива?');
for i:=1 to n do
read(a[i]);
writeln('Элементы 2-го массива?');
for i:=1 to n do
read(b[i]);
for i:=1 to n do
begin
c[i]:=a[i]+b[i];
write(c[i],' ');
end;
end.