我想把project里的一个procedure抽出来另外做一个pas文件插入原project中，请问怎样实现

Question

问题很简单，但我就是不会，我在delphi中新建了一个text文件，把procedure粘过去，并存为.pas文件，放在原project目录中，在project文件中加入uses 该文件，编译通不过，我想可能是我在那个pas文件中定义了一个结构的缘故，此pas文件大致如下
 type
     nodepoint= ^node;
     node=record
      data:double;
      link:nodepoint;
      prelink:nodepoint
     end;
     var
      i:integer;
      key :double;   procedure InsertSort(length:integer;head:nodepoint;last:nodepoint);
   begin
   end;
结果编译出错'UNIT'expected but 'TYPE'found 谁能告诉我什么原因

Answer 1

不是都告诉你了吗?第一行应该是unit xxx;

Answer 2

unit XXX; //xxx为你这个单元的名称interface //接口
  
 type
     nodepoint= ^node;
     node=record
      data:double;
      link:nodepoint;
      prelink:nodepoint
     end;   var
      i:integer;
      key :double;implementation //实现部分   procedure InsertSort(length:integer;head:nodepoint;last:nodepoint);
   begin
    ////
   end;

Answer 3

对，PAS文件必须按上面的格式来写，UNIT INTERFACE IMPLEMENTATION