Помогите доделать задачку.

[frolik32]

Даны сведения об успеваемости студентов по одному примеру A[15]
Определить:
1) Число студентов, получивших 5, их номера в массиве A.
2)Число студентов получивших 2, их номера в массиве A.
3)Среднюю оценку.
4)Сформировать новый массив B(N) из оценок >=3, указать их номера в массивах A и B.


Сделал первые два пункта, помогите с 3 и 4 плиз.
var
a:array [1..100] of integer;
i,j:1..100;
n,m,s,s1:integer;
begin
s1:=0;
s:=0;
for i:=1 to 15 do begin
write('Vvedite ocenky ',i,'ogo ychenika:');
readln(a);
end;
for i:=1 to 15 do
begin
if a=5 then
begin
write('5orky polychil nomer:');
s1:=s1+1;
writeln(i);
end;
if a=2 then
begin
s:=s+1;
write('2ky polychil nomer:');
writeln(i);
end;
writeln;
end;
writeln('Chislo studentov s 5oi: ',s1);
writeln('Chislo studentov s 2oi: ',s);
readln;
end.

[Хыиуду]

3. В цикл вставить sum:=sum+a, в конце вывести sum/15 - средняя оценка.
4. В цикл вставить
[syntax='Delphi']
if a>=3 then begin
b[j]:=a;
writeln ('B[',j,'] = A[', i, '] = ',A);
inc(j);
end;
[/syntax]