[PASCAL]Подсчет количества элементов, удовлетворяющих условию

const N = 20;
 
var
  a: array [1..N] of integer;
  i,K,Count: integer;
 
begin
 randomize;
  for i:=1 to N do
    a[i] := Random(10);
  writeln('Элементы массива a: ');
  for i:=1 to N do
    write(a[i],' ');
  writeln;
 
  K := Random(10);
 
  Count := 0;
  for i:=1 to N do
    if a[i] = K then
      Count :=count+1;
 
  writeln('Количество элементов, равных ',K,': ',Count);
   readln;
end.