написать программу формирования массива из 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.