问题在哪里？请赐教

Question

unit hanshu;interface
uses
  Classes,SysUtils,Graphics,dialogs;
typepublic
  procedure checknum(var st:string);
  
implementation
  procedure checknum(var st:string);
  var
  i:integer;
  begin
  i:=1;
  end;
end.

Answer 1

unit hanshu;interface
uses
  Classes,SysUtils,Graphics,dialogs;
typepublic
  procedure checknum(var st:string);
end ;\\-------------------------------加入end ;  
implementation
  procedure checknum(var st:string);
  var
  i:integer;
  begin
  i:=1;
  end;
end.
  

Answer 2

//同意hellion(恶人)
unit hanshu;interfaceuses
  Classes,SysUtils,Graphics,dialogs;procedure checknum(var st:string);
  
implementationprocedure checknum(var st:string);
var
  i:integer;
begin
  i:=1;
end;end.