Найти произведение и количество элементов массива, которые больше заданного числа

var
  Form1: TForm1;
  A:array[1..8] of Integer;
  i:Byte;
 
implementation
 
{$R *.dfm}
 
// заполняем массив случайными числами
 
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
Randomize;
for i:= 1 to 8 do begin
A[i] :=Random(100)+1;
StringGrid1.Cells[i-1, 0] :=IntToStr(A[i]);
end;
end;
 
//находим произведение и кол-во (если есть)
procedure TForm1.SpeedButton2Click(Sender: TObject);
var
k, p:Integer;
count:Byte;
begin
count :=0;
p :=1;
Label2.Caption :='';
//компонент TLabeledEdit есть в старших версиях Delphi. Можно заменить на обычный TEdit
if not TryStrToInt(LabeledEdit1.Text, k) then
begin
ShowMessage('Введите число!');
Exit;
end
else
begin
for i := 1 to 8 do begin
 if A[i]>k then begin
                 p :=A[i]*p;
                 Inc(count);
                end;
 
end;
if count =0 then ShowMessage(Format('Элементов, больших чем число %d, в массиве не найдено!', [k])) else
Label2.Caption :=Format('Произведение элементов = %d, их количество =%d', [p, count]);
end;
if count=1 then Label2.Caption :=Format('Найден только один элемент, больший чем %d. Он = %d', [k, p]);
end;
 
end.