Помогите(напишите) пожалуста на паскаль задачи:
1.Создать массив из вещественных чисел, найти сумму значения элементов которые находятся на чётных позициях.
2.С клавиатуры вводится последовательность целых чисел, которые заканчиваются 9999, определить сколько отрицательных и положительных.

1.
var a:array[1..1000] of real;
s :real;
n,i:integer;
begin
writeln('vvedite kolichestvo elementov massiva: ');
readln(n);
writeln('vvedite elementi massiva: ');
for i:=1 to n do
begin
write('a1=');
readln(a[1]);
end;
s :=0;
for i:=1 to n do
if((i mod 2)=0) then s :=s+a[i];
writeln(s);
end.
так вроде

var a:array[1..1000] of integer;
i, n, k1, k2: integer;
begin
writeln('vvedite kolichestvo elementov massiva: ');
readln(n);
writeln('vvedite elementi massiva: ');
for i:=1 to n do
begin
write('a1=');
readln(a[1]);
end;
k1:=0; k2:=0;
for i:=1 to n do if (a[i] > 0) then k1:=k1+1 else if (a[i] < 0 ) then k2:=k2+1;
writeln('Polojitelnih: ', k1); writeln('Otricatelnih: ', k2);
end.

warlock2, робит?