Дан массив из n целых элементов и целое число b. Сколько раз в массиве встречается число b?

program aaa;varM:array[1..1000000] of longint;n,b,count,i:longint;beginwriteln('введите размер массива');read(n);writeln('введите искомое число b');read(b);writeln('введите массив');for i:=1 to n do  read(M[i]);count:=0;for i:=1 to n do  if M[i]=b then     inc(count);writeln('в данном массиве всего ',count,' чисел(а) ',b)  end. 

1. Начало2. k=0, i=0; Ввести: b, n, m[n] // m[n] - массив из n элементов3. Если m[i] = b, то k=k+1// m[i] обращение к i-ному элементу массива4. Если i<n, то i=i+1 и вернутся в п.35. Вывести: k6. Конец