программа поиска Delphi

[Тант Зин]

Здравствуйте,
Я хочу найти того же слова в 2 array.if слово было таким же, то результат '1 'или не то же самое '0 '.Дать мне советы, как писать code.Следующие мои коды образца.

unit test;

interface

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

type
  TBMTable = array [0..9] of Integer;
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    StringGrid3: TStringGrid;
    StringGrid2: TStringGrid;
    Label1: TLabel;
    Label2: TLabel;
    MainMenu1: TMainMenu;
    File1: TMenuItem;
    Edit1: TMenuItem;
    Search1: TMenuItem;
    Help1: TMenuItem;
    Open1: TMenuItem;
    Save1: TMenuItem;
    Saveas1: TMenuItem;
    Exit1: TMenuItem;
    Undo1: TMenuItem;
    Cut1: TMenuItem;
    Copy1: TMenuItem;
    Delete1: TMenuItem;
    Find1: TMenuItem;
    FindinFile1: TMenuItem;
    StringGrid4: TStringGrid;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    StringGrid5: TStringGrid;
    StringGrid6: TStringGrid;
    StringGrid7: TStringGrid;
    StringGrid8: TStringGrid;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private


  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
       i, j: integer;
       Word : Char;

begin
   Randomize;
      for i:=0 to 7 do
      begin
        for j :=0 to 15 do
        begin
          Word := (Char(random(10)));
          Inc(Word,97);
          StringGrid3.Cells[i,j] := StringGrid3.Cells[i,j]+word;
        end;
      end;
end;

procedure TForm1.BitBtn3Click(Sender: TObject);
var
       i, j: integer;
       Word : Char;
begin
 Randomize;
      for i:=0 to 7 do
      begin
        for j :=0 to 15 do
        begin
          Word := (Char(random(10)));
          Inc(Word,97);
          StringGrid3.Cells[i,j] := StringGrid3.Cells[i,j]+word;
          StringGrid3.Cells[i,j] := ''+word;
        end;
      end;
end;



procedure TForm1.BitBtn1Click(Sender: TObject);
var  i,j,n,NO,YES:integer;
     a:array[0..9] of integer;
     found:boolean;
begin
   YES:=1;
      NO:=0;
      for i:=0 to 7 do
      a[i]:=StrToInt(StringGrid1,' ',i);
      n:=StrToInt(StringGrid2);
      Found:=NO;
      i:=1;
      REPEAT
      if a{i}=n then found:=YES
      else i:=i=1;
      UNTIL (i > 9) or (found = YES);

         begin
        for j:=0 to 16 do
        if Stringgrid2.Cells[i,0]=stringgrid1.Cells[j,0] then
        Stringgrid4.Cells[j,i]:=inttostr(YES)
        else
        Stringgrid4.Cells[j,i]:=inttostr(NO)
 end;
end;

end.