Дан одномерный вещественный массив B(N). Отыскать сумму положительных частей массива

program zz1;

const n = 5;  // задаем количество элементов в массиве

var  i:integer; // задаем переменные целого типа

b:array [1..n] of real;

s:real;

begin

for i:=1 to n do  // получаем n чисел случайных и записываем их в массив

b[i]:=random(51)-25+random;

for i:=1 to n do  // выводим приобретенный массив на экран

write(b[i]:8:2);

writeln;    // перебегаем на новую строчку для вывода ответа

for i:=1 to n do  

  if b[i] gt; 0 then s:=s + b[i]; // получаем сумму

writeln( сумма положительных элементов  = , s:5:2); // выводим ответ

end.