Вставить в конец списка L новый элемент E

Program Spisok;
uses
  crt; 
type ElementType=real;
     Chain=^Section;
     Section=record element: ElementType;
                       link: Chain end;{record}
procedure BuildChain (var f: text; var L: Chain);
 
 
 var p: Chain; filef: string; 
begin   L:=p;       
writeln ('Введіте адрес файла);
 
readln (filef);
assign(f, filef);
rewrite(f);
readln (p^.element);
write (f, p^.element);
reset(f);
read (f, p^.element);
 
write (f,p^.element);   
   while not eof(f) do   
   begin new(p^.link);                
      p:=p^.link; read(f,p^.element)
   end;{while} p^.link:=nil             
end; {Build Chain}
type
  Tinf=integer; 
  List=^TList;  
  TList=record 
    data:TInf;  
    next:List;   
  end;
 
 
procedure AddElem(var spis1:List;znach1:TInf);
var
  tmp:List;
begin
  if spis1=nil then 
  begin
    GetMem(spis1,sizeof(TList));  
    tmp:=spis1;
  end
  else 
  begin
    tmp:=spis1;
    while tmp^.next<>nil do
      tmp:=tmp^.next; 
    GetMem(tmp^.next,sizeof(TList)); 
    tmp:=tmp^.next;  
  end;
  tmp^.next:=nil; 
  tmp^.data:=znach1;
end;
 
 
procedure Print(spis1:List);
begin
  if spis1=nil then
  begin
    writeln('Список пуст');
    exit;
  end;
  while spis1<>nil do
  begin
    Write(spis1^.data, ' ');
    spis1:=spis1^.next
  end;
end;
 
 
var
  Spis,tmpl:List;
  znach:integer;
  ch:char;
  f: text;
  L: Chain;
begin
      begin
            BuildChain(f,L);
          end;
 
      begin
            write('Введіте елемент, которий надо вствить');
            readln(znach);
            AddElem(Spis,znach);
          end;
      begin
            clrscr;
            Print(Spis);
            readkey;
          end;
          close (f)
    end.

13  writeln ('Введіте адрес файла');