Где в программе ошибка?

[Warfvare]

составить алгоритм и программу нахождения суммы элементов массива с номерами 2,7,12,17,....
Но у меня выводит 0 подскажите где тут ошибка или есть какой то другой вариант? Проблема вроде с увеличением b;

procedure TForm1.Button1Click(Sender: TObject);
var a:array[1..20] of Integer;
    i,sum:Integer;
    b:Real;

begin
  Randomize;
  for i:=1 to 20 do
   begin
     a[i]:=Random(20);
      Edit1.Text:=Edit1.Text+IntToStr(a[i])+' ';
   end;

   sum:=a[2];
   B:=1.4;

   for i:=1 to 20 do
    begin
      if i / 5 =b then sum:=sum+a[i];
      b:=b+1;
    end;
    Edit2.Text:=IntToStr(sum);

end;

[Serge_Bliznykov]

а так?

for i:=1 to 20 do
begin
if (i-2) mod 5 =0 then sum:=sum+a[i];
b:=b+1;
end;

а вообще, если шаг задан, то почему бы его не исопльзовать?!!
сравните:

sum :=0;
i := 2;
while i<=20 do begin
   sum := sum + a[i];
   i := i + 5;
end;  
Edit2.Text:=IntToStr(sum);

[Z1000000]

i / 5 =b

Это условие в твоем коде невыполнимо, потому что тип i - целое число, и все операции над ним будут давать результат целого типа.

Подойдет вот такой вариант.

sum:=0;
for i:=1 to 20 do
 begin
 if i mod 5 = 2 then begin sum:=sum+a[i];end;
 end;

[Warfvare]

sum :=0;
i := 2;
while i<=20 do begin
   sum := sum + a[i];
   i := i + 5;
end;  
Edit2.Text:=IntToStr(sum);

[/QUOTE]

Все работает спасибо огромное