[salzer]

Задача:
Дано натуральное число, найти среднее арифметическое значение цифр числа, стоящих на нечетных местах.

немного набросил. постоянно выдает 0.
примечание: массив тут НУЖЕН(мне нужен)

Код:

var b,c,i,z: integer;
    val: real;
    a: array of integer;

.......

  
if radiobutton5.Checked=true then
    begin
    SetLength(a, strtoint(edit8.Text));
    if length(edit8.Text) mod 2=1 then c:=1 else c:=2;
    i:=c;
    while i<length(edit8.Text) do
      begin
        a[i]:=z mod 10;
        z:=z div 100;
        i:=i+2;
        b:=b+1;
        val:=val+a[i];
      end;
    val:=val / b;
    val:= Round(val*100)/100;
    listbox3.Items.Add(floattostr(val));
    end;

укажите мою ошибку