Создать процедуру, которая считает количество цифр, больших 100 — Pascal(Паскаль)

uses crt;

const
  n = 10;

procedure poisk;
var
  a, i, k: integer;
begin
  k := 0;
  for i := 1 to n do
  begin
    read(a);
    if a > 100 then
    begin
      inc(k);
    end;
  end;
  if k > 0 then
    writeln('Кол-во цифр больше 100 = ', k)
  else
    writeln('Чисел больше 100 нет');
end;

begin
  clrscr;
  writeln('Введите ', n, ' чисел');
  poisk;
  readln

end.