Помогите пожалуйста. даю 21б. информатика. программка Паскаль. Составить программку

const n=10;

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

i,a,b,c:integer;

w:real;

begin

c:=1;

write('Массив: ');

for i:=1 to n do

begin

m[i]:=random(19)-9;

if m[i] gt; 0 then a:=a+m[i];

if i mod 2 lt;gt; 0 then c:=c*m[i];

write(m[i],'  ')

end;

writeln;

b:=m[1];

for i:=2 to n do if m[i] lt; b then b:=m[i];

w:=b+a/(c+1);

writeln('Сумма положительных частей массива A = ',a);

writeln('Меньший элементов массива B = ',b);

writeln('Произведение элементов массива с нечетными номерами C = ',c);

writeln('W = ',w:0:3);

end.