Ошибка при компиляции проекта

unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  StdCtrls, ComCtrls, Spin, EditBtn;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Memo1: TMemo;
    SpinEdit1: TSpinEdit;
    StatusBar1: TStatusBar;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Memo1Change(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{ TForm1 }
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 form1.Memo1.Clear;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  form1.Memo1.Clear;
  form1.Button1.Enabled:=false;
  form1.Label2.Caption:='';
  form1.Label3.Caption:='';
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
 form1.Memo1.Lines.Add(form1.SpinEdit1.Text);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var a:array[1..20] of integer;
n,i,j,k:integer;
 
begin
  for i:=1 to 20 do
    a[i]:=strtoint(form1.Memo1.Lines[i]);
    for i:=1 to n do
    k:=0;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[j]=a[i] then
begin
k:=1;
end;
if k=0 then
form1.Label2.Caption:='Одинаковых элементов нет'
else
form1.Label3.Caption:='Одинаковые элементы есть';
end;
 
procedure TForm1.Memo1Change(Sender: TObject);
begin
form1.StatusBar1.SimpleText:='Количество линий в memo - '+inttostr(form1.Memo1.Lines.Count);
  if form1.Memo1.Lines.Count=21 then
  begin
  form1.Memo1.Enabled:=false;
  form1.Button1.Enabled:=true;
  form1.Memo1.Lines.Delete(20);
  showmessage('Ввод данных закончен');
  end;
end;
 
initialization
  {$I unit1.lrs}
 
end.