Заполнить массив случайным образом и вывести на экран сумму нечетных элементов. В паскале)

Program mass;

uses crt;

const n = 100;

var massiv:array[1 ... n] of integer;

i, sum:integer;

begin

sum:=0;

for i:=1 to n do begin

massiv[i]: = trunc (Random (100)) ;

if massiv[i] mod 2 0 then

sum: = sum + massiv[i];

end;

writeln ('Сумма нечетных элементов = ', sum) ;

end.

Var b, c, d:integer;

a:array [1 ... 100] of integer;

begin

randomize;

writeln ('введите длину массива') ;

readln (b) ;

for c:=1 to b do begin

a[c]:=random (1000) ;

writeln (a[c]) ;

if a[c] mod 10 0 then d:=d+a[c];

end;

writeln ('сумма нечётных элементов ', d) ;

end.