Создать два массива одинаковой размерности

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