Вводится последовательность из 10 произвольных чисел.определить сколько раз в последовательности встречается число a

Var m:array[1..10] of integer;
a,i,k:integer;
begin
k:=0;
for i:=1 to 10 do
read(m[i]);
readln(a);
for i:=1 to 10 do
if m[i]=a then k+=1;
writeln(k);
end.