Дописать массив

[alerzo]

Помогите дописать программу! требуется сделать нумерование вводимых элементов в первом столбике!!!помогите плиз.
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids;

type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
StringGrid1: TStringGrid;
Label3: TLabel;
Edit1: TEdit;
Label4: TLabel;
Label5: TLabel;
procedure Button1Click(Sender: TObject);
procedure Edit1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var a:array[1..12] of integer;
summ:integer;
n,i,k:integer;
sr,F:real;
begin
n:=strtoint(edit1.text);
For i:=1 to n do
if length(StringGrid1.Cells[i-1,0])<>0
then a[i]:=Strtoint(stringgrid1.Cells[i-1,0])
else a[i]:=0;
summ:=0;
for i:=1 to n do
summ:=summ+a[i];
sr:=summ/n;
Label5.Caption:='СУММА ВСЕХ ЭЛЕМЕНТОВ ='
+Floattostr(summ)+#13+'СРЕДНЕЕ АРИФМЕТИЧЕСКОЕ ='+Floattostr(sr);
for i:=1 to n do
a[i]:=strtoint(stringgrid1.cells[i-1,0]);
k:=1;
for i:=2 to n do
if a[i]>a[k] then k:=i;
F:=sr*a[k];
Label5.Caption:=Label5.Caption+#13+ 'НОМЕР МАКСИМААЛЬНОГО ='
+Floattostr(k)+#13+'МАКСИМАЛЬНЫЙ ЭЛЕМЕНТ ='+Floattostr(a[k])
+#13+'СРЕДНЕЕ АРИФМ.*МАКСИМАЛЬНЫЙ ЭЛЕМЕНТ ='+Floattostr(F);
end;
procedure TForm1.Edit1Change(Sender: TObject);
begin
if Edit1.text<>' ' then
StringGrid1.colcount:=Strtoint(edit 1.text);
end;

end.