Вопрос по последовательностям в паскале

[Арлекин]

вот дана такая задачка(полное условие):
Пусть
a[1]=0.01;
a[k]=sin(k+a[k-1]) , k=2,3,...
Среди первых n элементов последовательности {a[k]} определить:
а) среднее отрицательных;
б) номер k такой , что k*a[k] ближе всех остальных к како-
мулибо четному числу.
вот мои попытки:
program abc23;
var a,z:real;
k,n:integer;
begin
write ('введите количество элеметов последовательности: ');
readln (n);
a:=0.01;
for k:=2 to n do
begin
a:=sin(k+a);
begin
if a>=0 then z:=0;
if a<0 then z:=a/n;
end;
end;
writeln('среднее отрицательных:', z:2:3);
readln;
end.
вопрос: я правильно сделал эту часть?? И как там дальше может кто поможет?

[Z1000000]

неправильно.
Твоя программа выдаст либо 0 , либо последний член последовательности деленный на число элементов последовательности.

program abc23;
var a,z:real;
k,n,j:integer;
begin
write ('введите количество элеметов последовательности: ');
readln (n);
a:=0.01;
z := 0; j:=0;
for k:=2 to n do
 begin
 a:=sin(k+a);
 write(a,' ');
 if a<0 then begin z:=z+a; j:=j+1; end;
 end;
writeln('среднее отрицательных:', z/j:2:3);
readln;
end.