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