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

Var
a: array [1..5] of integer;
s, i: integer;
begin
for i:=1 to 5 do
begin
write('Введите значение: ');
read(a[i]);
if a[i]>0 then s:=s+a[i];
end;
writeln('Сумма положительных членов массива: ', s);
end.