выдает ошибку в строке PROCEDURE TForm1.Button1Click(Sender: TObject);

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
PROCEDURE TForm1.Button1Click(Sender: TObject);
Var s:Real
    i:Integer;
begin
S:=0;
i:=1;
while i<=50 do
   begin
   S:=S+1/n;
   n:=n+1;
   End;
label1.Caption:='S='+FloatToStr(s);
End;
End;
implementation
{$R *.dfm}
end.

unit Unit1;
 interface
 uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls;
 type
 TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
 private
 { Private declarations }
 public
 { Public declarations }
 end;
 var
 Form1: TForm1;
 implementation
 {$R *.dfm}
 
 PROCEDURE TForm1.Button1Click(Sender: TObject);
 Var
 s:Real;
 i,n :Integer;
 begin
 S:=0;
 i:=1;
 while i < =50 do
 begin
 S:=S+1 / n;
 n:=n+1;
 End;
 label1.Caption:='S='+FloatToStr(s);
 End;