Помогите с задачей.

[prammp]

Ребят ХЕЛП
Дано: D(10) , F(12)
Определить M=(N1+N2)в кубе,где N1,N2 - количество элементов с чётными номерами,больших второго элемента ряда.

[maladoy]

var
d:array[1..10] of real;
f:array[1..12] of real;
i,j,n1,n2:integer;
m:real;

begin
i:=2;
j:=2;
n1:=0;
n2:=0;
while i<=10 do
begin
i:=i+2;
if d[i]>d[2] then n1:=n1+1;
end;
while j<=12 do
begin
j:=j+2;
if f[j]>f[2] then n2:=n2+1;
end;
m:=sqr(n1+n2)*(n1+n2);
writeln(m);
end.

[prammp]

maladoy,спасибо!!