Заполнить массив из 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.