Помогите по информатике paskal;

Заполнить массив натуральными числами от 5 до 15, все четные числа разделить на два и вывести на экран сумму элементов.

program HelloWorld;

const N = 10;

var m:array [1 ... N] of real;

var i: integer;

var j: integer;

var summ: real;

begin

summ:=0;

for i : = 1 to N do

begin

j: = 5 + random (10) ;

m[i]:=j;

if j mod 2 = 0 then m[i]:=m[i]/2;

summ:=summ+m[i];

end;

write (summ:10:0) ;

end.