[stil]

Код:

var b: array [0..9] of integer;{массив с числами}
    i:integer;
begin
randomize;
Edit2.Text:='0';{обнуляем поле чтобы ошибки не было}
memo1.Lines.Clear;
for i:=0 to 9 do begin
  b[i]:=random(StrToInt(Edit1.text)*2);{случайное число 'берем 0..К*2'}
  memo1.Lines.Add(IntToStr(b[i]));
  if b[i]>StrToInt(Edit1.text){проверяем больше оно К, если да} 
    then Edit2.Text:=IntToStr(StrToInt(Edit2.Text)+1);{увеличеваем на единицу число больших К}
end;

для наглядности можешь добавить то что красным