Отыскать заданную сумму положительных частей массив,сумму четных и суммы первых 5.НУЖЕН

Как задается массив, от руки либо нечаянно? И сколько элементов в массиве?

тема есть такая одномерные массивы

Var a:array[1..10] of integer;
sum,chet,s,i:integer;
begin
sum:=0;
s:=0;
chet:=0;
for i:=1 to 10  do
begin
a[i]:=random(200)-100;
writeln('a[',i,'] = ', a[i]);
if a[i] gt; 0 then sum:=sum+a[i];
if a[i] mod 2 = 0 then chet:=chet+a[i];
if ilt;6 then s:=s+a[i];
end;
writeln('summa polozhitelnix = ',sum);
writeln('summa chetnix = ',chet);
writeln('simma pervix 5 = ', s);
end.