Задача по информатике, помогите пожалуйста
Напишите компьютерную программу, которая создает
массив из 10 элементов, тип массива - вещественный (real).
Программа дает возможность пользователю, вручную, с
клавиатуры, в цикле заполнить положительными и
отрицательными значениями все элементы массива.
Гарантируется, что положительные и отрицательные
значения будут присутствовать в элементах массива после
заполнения. Далее, программа находит сумму всех
элементов массива, значение которых больше нуля.
Полученный результат, указанная сумма, программой
выводятся на экран

Program P1;uses crt;var a: array [1..10] of real; i: integer; sum: real;beginclrscr;for i:=1 to 10 do begin write ('Введите элемент массива: '); readln (a[i]); end;sum:=0;for i:=1 to 10 do begin if a[i]>0 then sum:=sum+a[i]; end;for i:=1 to 10 do begin writeln (a[i]); end;write ('Сумма элементов массива, которые больше 0 составляет: ', sum);readkey;end.

ну и зачем тебе это?