Дан массив. Подсчитать количество элементов равных 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.

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