Массив. Найти количество элементов равных 5. Паскаль ABC

var a: array[1..9999] of real; i, n, b: integer; begin randomize; Write('Введите число эементов массива:'); readln(n); b:=0; for i:=1 to n do begin a[i]:=-5+random(11); writeln('a[', i, ']=', a[i]); if a[i]=5 then b:=b+1; end; writeln('Кол-во элементов, равных 5: ', b); end.