Исправить ошибки

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;
 
type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  n:integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
//зададим осноные параметры таблицы
with StringGrid1 do
 begin
  fixedcols:=0;
  fixedrows:=0;
  rowcount:=1;
  scrollbars:=ssHorizontal;
  defaultcolwidth:=40;
  options:=options+[goEditing];
 end;
Button1.Enabled:=true;//1 кнопку включим
Button2.Enabled:=false;//2 пока выключим
end;
//создание массива
 
procedure TForm1.Button1Click(Sender: TObject);
var c:integer;
begin
//проверим ввод размера
val(Edit1.Text,n,c);
if(c<>0)or(n<1)then
 begin
  ShowMessage('Неверно введен размер массива');
  Edit1.Clear;
  Edit1.SetFocus;
  exit
 end;
setlength(mass,n); //выделим память под массив
StringGrid1.ColCount:=n;//зададим количество ячеек в таблицах
ShowMessage('Введите действительные числа');
Button1.Enabled:=false;//после ввода чисел выключим кнопку 1
Button2.Enabled:=true;//включим 2
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var i,k,summ:integer;
begin
//преобразуем числа из таблицы в масив,
//заодно проверим правильнсть их ввода
k:=0;
i:=0;
while(i<n)and(k=0)do
 begin
  val(StringGrid1.Cells[i,0],mass[i],k);
  inc(i);
 end;
if k<>0 then
 begin
  ShowMessage('Не все числа введены верно, поправьте');
  exit
 end;
summ:=0;
for i:=0 to n-1 do
if mass[i]<0 then summ:=summ+i;
showmessage('Сумма индексов отрицательных чисел='+inttostr(summ));
 
end;
 
end.

var
  Form1: TForm1;
  mass:array of real;
  n:integer;