Процедура на паскале

[Борис Д.]

Дана задача по вычислению средних значений (арифметическое, квадратичное, гармоническое,геометрическое). Даны значения: Нечетные числа от 3 до 75 и от 501 до 601.

var
a1:array[3..75] of integer;
a2:array[501..601] of integer;
i:integer;
procedure fill_array(var a:array of integer;start:integer);
var i:byte;
begin
for i:= low(a) to high(a) do
a[i]:=(i+2)+(i+start);
end;

function arith (var a:array of integer):real;
var
sum:longint;
i:integer;
begin
sum:=0;
for i:=low(a) to high (a) Do
sum :=sum +a[i];
arith:=sum/(high(a)-low(a)+1)
end;

function quadr( var a:array of integer):real;
var
sum:real;
i:integer;
begin
sum:=0;
for i:=low(a) to high (a) do
sum:=sum + sqr (longint (a[i]));
quadr :=sqrt (sum/(high(a) - low(a)+1))
end;

function sredgeom (var a: array of integer):real;
var
sum : real;
i : word;
begin
sum := 0;
for i :=low(a) to high(a) do
sum := sum + ln(a[i]);
sredgeom := exp(sum/(high(a)-low(a)+1));
end;

function sredgorm (var a: array of integer):real;
var
sum : real;
i : word;
begin
sum := 0;
for i := low(a) to high(a) do
sum := sum + 1/(a[i]);
sredgorm := (high(a)-low(a)+1)/sum;
end;

begin
fill_array(a1,3);
writeln('srednee arith 1=', arith(a1):0:2);
writeln('srednee quadr 2=', quadr(a1):0:2);
writeln('srednee geom 3=', sredgeom(a1):0:2);
writeln('srednee gorm 4=', sredgorm(a1):0:2);
fill_array(a2,501);
writeln('srednee arith 1=', arith(a2):0:2);
writeln('srednee quadr 2=', quadr(a2):0:2);
writeln('srednee geom 3=', sredgeom(a2):0:2);
writeln('srednee gorm 4=', sredgorm(a2):0:2);
end.
end.

Помогите пожалуйста написать правильно процедуру заполнения. Совсем запутался. Кто поможет кину 50 на вмр или на телефон.

[Mad_Cat]

var
a1:array[1..37] of integer;
a2:array[250..300] of integer;
i:integer;
procedure fill_array(var a:array of integer);
var i:byte;
begin
for i:= low(a) to high(a) do
a:=2*i+1;
end;