Заполнить одномерный массив размерности N случайными числами. Подсчитать сколько элементов массива меньше X. Вывести на экран исходный и количество элементов массива меньше X.

var ar:array of integer;i,x,k,n:integer;begin;randomize;readln(n);setlength(ar,n+1);readln(x);writeln('First array:');for i:=1 to n do begin;  ar[i]:=random(10,99);   write(ar[i]:4);  if ar[i]<x then inc(k);  end;writeln;writeln('Result:',k);end.