Не компилируется программа!!!

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;
 
type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    CheckBox1: TCheckBox;
    Label3: TLabel;
    Edit1: TEdit;
    procedure Button1Click(Sender:TObject);
    procedure StringGrid1KeyPress(Sender:TObject; var Key:Char);
    procedure Edit1KeyPress(Sender:TObject; var Key:Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
procedure TForm1.Button1Click(Sender:TObject);
const
    SIZE=10;
var
    a:array[1..SIZE] of integer;
    obr:integer;
    verh:integer;
    niz:integer;
    sred:integer;
    found:boolean;
    n:integer;
    i:integer;
begin
        for i:=1 to SIZE do
             a[i]:=StrToInt(StringGrid1.Cells[i-1,0]);
        obr:=StrToInt(Edit1.text);
        verh:=1;
        niz:=SIZE;
        n:=0;
        found:=FALSE;
        label3.caption:='';
        if CheckBox1.State = cbChecked
           then label3.caption:='verh'+#9+'niz'#9'sred'#13;
        repeat
        sred:=Trunc((niz-verh)/2)+verh;
        if CheckBox1.Checked
           then label3.caption:=label3.caption
                        +IntToStr(verh) + #9
                        +IntToStr(niz) + #9
                        +IntToStr(sred) + #13;
        n:=n+1;
        if a[sred] = obr
           then found:=TRUE
           else
              if obr < a[sred]
                 then niz:=sred-1
                 else verh:=sred+1;
        until (verh > niz) or found;
        if found
           then label3.caption:=label3.caption
                        +'Совпадение с элементом номер:'
                        +IntToStr(sred)+#13
                        +'Сравнений '+IntToStr(n)
           else label3.caption:= label3.caption
                        +'Образец в массиве не найден.';
end;
procedure TForm1.StringGrid1KeyPress(Sender:TObject; var Key:Char);
begin
        if Key = #13 then
            if StringGrid1.Col < StringGrid1.ColCount - 1
              then
                  StringGrid1.Col:=StringGrid1.Col + 1
              else
                  Edit1.SetFocus;
end;
procedure TForm1.Edit1KeyPress(Sender:TObject; var Key:Char);
begin
        if Key = #13
           then
               Button1.SetFocus;
end;
end.

unit Unit3;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;
 
type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender:TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form: TForm1;
 
implementation
 
{$R *.dfm}
procedure TForm1.Button1Click(Sender:TObject);
const
    SIZE = 5;
var
    a:array[1..SIZE] of integer;
    obr:integer;
    found:boolean;
    i:integer;
begin
        for i:=1 to SIZE do
            a[i] :=StrToInt(StringGrid1.Cells[i-1,0]);
        obr:=StrToInt(edit2.text);
        found:=FALSE;
        i:=1;
        repeat
             if a[i] = obr
                 then found := TRUE
                 else i:= i+1;
        until (i > SIZE) or (found = TRUE);
        if found
                then ShowMessage('Совпадение с элементом номер'
                                + IntToStr(i)+#13+'Поиск успешен.')
                else ShowMessage('Совпадений с образцом нет.');
end;
end.