В массиве случайных чисел найти сумму элементов,значения которых меньше 15
Напишите пожалуйста программу

var i,sum: Integer;a:array[1..10] of Integer;beginsum:=0;Randomize();for i:=1 to 10 dobegina[i]:=random(20);if(a[i]<15) then sum:=sum +a[i];write(' ',a[i]);end;writeln();writeln('сумма элементов < 15= ',sum);end.