Подсчитать количество элементов равным 3 в массиве В6

Программа на Паскале: Program aaa; Var i, k: integer; b: array [1… 6] of real; Begin for i: =1 to 6 do readln (b[i]; k: =0; for i: =1 to 6 do if b[i'=3 then k: =k+1; writeln ('кол-во элементов равных 3=', k); readln; end.