Паскаль!

[Jone200991]

1) вычислить значения 36 элементов одномерного целочисл-ого массива Y в интервале (-10;10) с использованием генератора случ-ых чисел.
2)Выч-ть среднеарифмет-ое значение каждых вторых элементов второй четверти массива.
Вот прога, чё-то не выходит ответ?:

Program xxx;
const n=36;a=-10;b=10;
Var r:Array [1..n] of integer;SrArif:real;k,z,i:integer;
Begin
Randomize;
For i:=1 To 36 do
r[i]:=random(b-a+1)+a;
writeln('Сформулировать массив целых чисел r[36] из случайных чисел');
For i:=1 to 36 do
Write (r[i]:4);
Writeln;
Readln;
k:=0;
z:=0;
for i:=1 to 36 do
for i:=((n div 4)+1) to ((n div 2)-1) do
if i mod 2 <>0 then
begin
k:=k+r[i];
z:=z+1;
end;
SrArif:=k/z;
writeln('Среднеарифметическое значение каждых вторых элементов второй четверти массива =:', SrArif:8:3);
end.