Создать упорядоченный по возрастанию список (программа не работает)

uses
  SysUtils;
 
begin
     type
TInfo=integer;
Tlist=~Node;
Node=record
     info:TInfo;
     next:Tlist;
     end;
 
procedure Init(var L:Tlist);
BEGIN
new(L);
L^.next:=nil;
end;
 
Function Empty(L:Tlist):boolean;
begin
result:=L^.next:=nil;
end;
 
Procedure Add_to_head(var PNode:Tlist; new_element:Tinfo);
var p:Tlist;
begin
new(p);
p^.info:=new_element;
p^.next:=PNode^.next;
Pnode^.next:=p;
end;
 
Function Del_After_Node(var Pnode:Tlist):Tinfo;
var p:Tlist;
begin
p:=PNode^.next;
PNode^.next:=p^.next;
result:=p^.info;
p^.next:=nil;
dispose(p);
end;
 
Function Found_Place(L:Tlist; new_element:Tinfo):TList;
begin
result:=L;
While(result^.next<>nil) and (result^.next^.info< new_element) do 
result:=result^.next;
end;
 
Procedure Create_Order_from_file(var L:Tlist; file_name:string);
var f:Textfile;
new_element:Tinfo;
place:Tlist;
begin
Init(L);
Assign File (f,file_name);
Reset(f);
While not eof(f) do
begin
read(f,new_element);
place:=Found_place(L, new_element);
Add_after_Node(Place,new_element);
end;
close File(f);
end;
 
Procedure Print_to_file(L:Tlist; file_name:string);
var
p:Tlist;
f:Textfile;
begin
p:=L^.next;
Assign File(ffile_name);
Rewrite(f);
While p<> nil do
begin
Write(f,p^.info, ' ');
p:=p^.next;
end;
Close File(f);
end;
 
Procedure Clear(var L:Tlist);
begin
While not Empty(L) do
Del_after_Node(L);
dispose(L);
end;
 
 function Found_first(L:Tlist):Tlist;
begin
result:=L;
While (result^.next<>nil) and (resylt^.next^.info mod 2 = 0) do
result:=result^.next;
end;
 
 
//îñíîâíîå òåëî ïðîãðàììû
Var
L:Tlist;
podd:Tlist
begin
SetCousdOutputCP(1251);
(SetConsoleCP(1251);
Create_Order_from_file(L,'input.txt');
Print_to_file(L,'input.txt');
 podd:=found_first(L);
 podd:=3*podd;
 if podd^.next=nil then
 Writeln('íå÷åòíûõ íåò')
 else
 Del_after_Node(podd)
 
end.

Function Empty(L:Tlist):boolean;
begin
result:=L^.next:=nil;
end;

Function Empty(L:Tlist):boolean;
begin
result:=L^.next = nil;
end;