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