Обнулить элементы массива b(9) в четных ячейках . , и блок схема

Var
   i:integer;
   b:array[1..9]of integer;
begin
writeln('Исходный массив:');
for i:=1 to 9 do
  begin
  b[i]:=random(10);
  write(b[i],' ');
  end;
writeln;  
writeln('Измененный массив:');
for i:=1 to 9 do
  begin
  if i mod 2=0 then b[i]:=0;
  write(b[i],' ');
  end
end.