Написать на языке паскаль. масси из 14 элементов заполнить случайными целыми числами в интервале от -5 до 50. вывести получкнный массив на экран в строчку. найти сумму нечетных элементов массива

Program z;
var a: array [1..14] of integer;
i,sum: integer;
begin
sum:=0;
for i:=1 to 14 do
begin
a[i]:= random(50) -5; write(a[i]: 6);
if a[i] mod 2 <> 0 then sum:= sum+a[i];
end;
write(' sum= ',sum);

end.