Заменить нулевые элементы массива B (18) в ячейках, номера которых кратны 3, цифрой 7

Var b:array [1 ... 18] of real;

i:integer;

begin

for i:=1 to 18 do begin

Write ('b[', i,']=') ;

readln (b[i]) ;

end;

for i:=1 to 18 do

Writeln ('b[', i,']=', b[i]) ; writeln ('Новый массив:') ;

for i:=1 to 18 do

begin

if (i mod 3 = 0) and (b[i]=0) then b[i]:=7;

Writeln ('b[', i,']=', b[i]) ;

end;

readln;

end.