معدل ۲۰عدد با استفاده از آرایه

var
nomre : array[0..19] of integer;
i : integer;
m : real;
begin
nomre[0] := 15;
nomre[1] := 20;
.
.
.
nomre[19] := 19;

m := 0;
for i := 0 to 19 do
m := m + nomre[i];
m := m / 20;
Edit1.Text := FloatToStr(m);
end;