Помогите исправить ошибки

unit nam;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Grids, ComCtrls;
 
type
  TForm1 = class(TForm)
    grp1: TGroupBox;
    grp2: TGroupBox;
    lst1: TListBox;
    lst2: TListBox;
    btn1: TButton;
    bitbtn2: TButton;
    pgc1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    lbl1: TLabel;
    strngrd1: TStringGrid;
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
//исходный код кнопки «далее»
procedure TForm1.BitBtn3Click(Sender: TObject);
var i,j,k,l,t:integer;
label other;
begin
   //цикл по количеству формул
   for i:=1 to rules_count do
   begin
   l:=1;
     //просмотр предложения в поиске совпадения с правилом
     while l<=length(sequence) do
     begin
     t:=l;
     for j:=1 to length(Mark_rules[i-1].source) do
       begin
         if Mark_rules[i-1].source[j]=sequence[t] then
         begin
         inc(t);
         end
           else
           begin
           goto other;
           end;
       end;
   //замена слова в исходной строке согласно правилу
   sequence:=copy(sequence,1,l-1)+Mark_rules[i-1].destination+copy(sequence,t,length(sequence)-t+1);
   inc(step_count);
   Memo2.lines.Append(inttostr(step_count)+'. '+sequence);
      if Mark_rules[i-1].assistent='|->' then
      begin
      bitbtn3.Enabled:=false;
      bitbtn2.Enabled:=false;
      end;
   exit;
   other:;
   inc(l);
   end;
  end;
 
//дальнейшая обработка не возможна
bitbtn3.Enabled:=false;
end.