Найти номера элементов, меньших среднего арифметического элементов того же массива

unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Grids, Vcl.StdCtrls;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    StringGrid1: TStringGrid;
    StringGrid2: TStringGrid;
    Button2: TButton;
    Edit2: TEdit;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
 
 
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
StringGrid1.ColCount:=StrToInt(Edit1.Text)+1;
For i := 1 to StringGrid1.ColCount do
  begin
  StringGrid1.Cells[i,0]:=IntToStr(i);
  end;
StringGrid1.Cells[0,1]:='N';
StringGrid2.ColCount:=StrToInt(Edit1.Text)+1;
For i := 1 to StringGrid2.ColCount do
  begin
  StringGrid2.Cells[i,0]:=IntToStr(i);
  end;
StringGrid2.Cells[0,1]:='K';
 
end;
 
 
procedure TForm1.Button2Click(Sender: TObject);
var
i,j,k,buff:integer;
R,z,Q,N:real;
begin
Q:=StrToFloat(Edit1.Text);
R:=0;
for k := 1 to StringGrid1.ColCount do
begin
R:=R+StrToFloat(StringGrid1.Cells[k,1])
end;
N:=R/Q;
Edit2.Text:=FloatToStr(N);
z:=1;
 
for i := 1 to StringGrid1.ColCount do
 if StrToFloat(StringGrid1.Cells[i,1])<N then
begin
StringGrid2.Cells[i,1]:=FloatToStr(i);
 //z:=z+1;
 end;
//else z:=z+1;
 
 
end;
 
end.

try
  Q:=StrToFloat(Edit1.Text);
except
  ShowMessage('Неправильный ввод!');
  Exit;
end;