Вопрос по Unit

unit spiski;
interface
        Type Tinf=integer;
         TP=^Telem;
         Telem=Record
                 inf:Tinf;
                 pSled:TP
                End;
    Procedure Init(Var head:TP);
    Procedure InSpN(infEl:Tinf; Var head:TP);
    Procedure SozdSpN(Var head:TP);
    Procedure ProsmSp(head:TP);
    Procedure sort(head:tp; var head1,head2:TP);
implementation
Procedure Init(Var head:TP);
 
Begin
      head:=NIL
End;
 
Procedure InSpN(infEl:Tinf; Var head:TP);
 
Var pn:TP;
Begin
      New(pn);
      pn^.inf:=infEl;
      pn^.pSled:=head;
 
      head:=pn
End;
 
Procedure SozdSpN(Var head:TP);
 
Var s:integer;
Begin
      Init(head);
      WriteLn('Вводите цифры! ');
      WriteLn('Признак конца ввода 0  ');
      Readln(s);
      while s<>0 do begin
             InSpN(s,head);
             Readln(s);
                    end;
      ReadLn
End;
 
Procedure ProsmSp(head:TP);
 
 
Begin
      If head=NIL
      Then Begin
         WriteLn('Список пуст!');
         Write('Нажмите Enter ->');
         ReadLn; Exit;
 
           End;
 
 
      While head<>NIL
      Do Begin Write(head^.inf,' ');
               head:=head^.pSled
         End;
      WriteLn
End;
 
Procedure sort(head:tp; var head1,head2:TP);
 
Var pt,pt1,pt2:TP;
Begin
      WriteLn('После переобразования:');
      pt:=head;
      While pt<>NIL
      Do Begin IF pt^.inf>=0 then InSpN(pt^.inf,head1)
                            else InSpN(pt^.inf,head2);
               pt:=pt^.pSled
         End;
 
End;
end.

Program lab_13;
uses crt;
     spiski;
 
Procedure ramki (x1,y1,x2,y2,cf,ct:integer; zag:string);
 begin
window(x1,y1,x2,y2);
textbackground(cf);
clrscr;
textcolor(ct);
writeln(zag);
end;
 
 
Var
        zag: string;
        y1,x1,x2,y2,cf,ct:byte;
      head,head1,head2:TP;
Begin
       clrscr;
       textbackground(black);
       clrscr;
       x1:=2; y1:=2; x2:=20; y2:=20;
       ct:=18;
       cf:=1;
       zag:='Çàäàíèå:Ñîçäàòü';
       ramki(x1,y1,x2,y2,cf,ct,zag);
       writeln('ñïèñîê. + ýëåìåíòû');
       writeln('Â îäèí ñïèñîê');
       writeln('Îñòàëüíûå â äðóãîé.');
       x1:=48; y1:=2; x2:=76; y2:=20;
       zag:='Îòâåò';
       ramki(x1,y1,x2,y2,cf,ct,zag);
       x1:=24; y1:=2; x2:=44; y2:=20;
       zag:='Ñîçäàíèå ôàéëà';
       ramki(x1,y1,x2,y2,cf,ct,zag);
       SozdSpN(head);
       Writeln('Ïîñëå ñîçäàíèÿ '); ProsmSp(head);
       x1:=48; y1:=2; x2:=76; y2:=20;
       zag:='Îòâåò:';
       ramki(x1,y1,x2,y2,cf,ct,zag);
       Sort(head,head1,head2);
       writeln('Ñ îòðèöàòåëüíûìè');
       ProsmSp(head2);
       Writeln('Ñ ïîëîæèòåëüíûìè');
       ProsmSp(head1);
       readln;
End.

Program lab_13;
uses crt;//замени точку с запятой на запятую...
     spiski;