Дан массив. Подсчитать количество элементов равных 5

Program tref;

var a, i:integer; mas:array[1 ... 10] of integer;

begin

randomize;

for i:=1 to 10 do

begin

mas[i]:=random (50) ;

if (mas[i]=5) then a:=a+1;

writeln (mas[i]) ;

end;

writeln (a) ;

end.

Заполнение массива-рандомное, если хотите, можно изменить на ввод от руки