Посчитать количество шестёвок в массиве f(19)

var f:array [1..19] of real;i,k:integer;begink:=0;for i:=1 to 19 do beginWrite('f[',i ,']='); readln(f[i]);if f[i]=6 then k:=k+1;end;Writeln('Количество шестерок: ',k); readln;end.