Заполнить массив из 10 целых чисел с клавиатуры положительными и отрицательными числами. Найти сумму положительных элементов массива. (паскаль)

Var

a: array [1 ... 10] of real;

s: real;

i: integer;

begin

s: = 0;

for i: = 1 to 10 do

begin

writeln ('Введите число') ;

readln (a[i]) ; / / Вводим i-ый элемент массива с клавиатуры

if a[i] > 0 then s: = s + a[i]; {Если введенный элемент >0, то прибавляем к текущему значению s введенный элемент}

end;

writeln ('Сумма положительных элементов массива: ', s)

end.