Проверить, имеются ли в данном одномерном массиве элементы равные заданному числу - Turbo Pascal

const
  n = 10;
var
  k, i, m : integer;
  a : array [1..n] of integer;
begin
  k := 0;
  randomize;
  for i := 1 to n do
  begin
    a[i] := random(10);
    write(a[i]:4)
  end;
  writeln;
  writeln('введите число: ');
  readln(m);
  for i := 1 to n do
    if a[i] = m then inc(k);
  if k = 0 then writeln('таких чисел нет в массиве')
    else writeln('чисел равных ', m , ' - ', k, ' штук');
  readln
end.