Написать программу формирования массива из 10 чисел ( вод с клавиатуры) и подсчитать суммы элемента

Изи 
var
  massiv  : array [1..100] of longint;
  summa,i : longint;
begin  
  for i:=1 to 10 do begin readln(massiv[i]); summa:=summa+a[i]; end;
  writeln(summa);
end.