(PASCAL) помогите найти ошибку в коде

(PASCAL) помогите найти ошибку в коде

program symma_masiva;
uses crt;
var a:array[1..10] of real; {Объявляем массив}
Summ:real; {Сумма всех элементов массива}
i:integer; {i:Параметр цикла For}
procedure vvod_massiva;
Begin
{Заполняем массив числами}

For i:=1 to 10 do begin
write('Введи элемент массива: [',i,'] ');
readln(a);
end;
procedure podscet_symmi;
begin
Summ:=0; {Обнуляем нашу сумму}

For i:=1 to 10 do
Summ:=Summ+a;

write('Сумма всех элементов массива=',Summ);
readln;
end;
begin
vvod_massiva;
podscet_symmi;
End.