Рост каждого из 22 учеников класса предоставлен в виде массива.Определить кол-во учеников ,рост которых не превышает значение r. — Pascal(Паскаль)

var a:array[1..22]of integer;
    i,r,k:integer;
begin
randomize;
for i:=1 to 22 do
begin
  a[i]:=random(51)+150;
  write(a[i]:4);
end;
writeln;
k:=0;
writeln('Введите рост:');
readln(r);
for i:=1 to 22 do
if a[i]<=r then inc(k);
writeln('Количество: ',k);
readln;
end.