не работает список, не могу понять почему

[aidar2018]

program ex7;
type 
     U=^Dlin;
      dlin=record
       name:string;
       next:u;
      end;

var
    f,g:text;
    go,one:u;
 
procedure readfile(var one :u; var f:text);
var 
    go, m:u;
    
begin
   new(go);
   m:=go;
   go^.name := '';
   go^.next := nil;
   one:=go;
   While not eof(f) do 
    begin
     new(go);
     readln(f,go^.name);
     go^.next := m;
     m^.next:=go;
     m := go;
    end;
    new(go);
    m^.next := go;
    go^.next := m;
    go^.next := nil;
    go^.name := ''; 
end;


procedure logic(var one:u);
var
 t,l,m,go,c:u;
 k:byte;
 
 begin
  go:=one^.next;
  while go <> nil do   
   begin 
    l:=one;
    c:=go;
    t:=go^.next;
    while l<>go do 
     begin 
      m:=l^.next;
      if (length(t^.name)> length(l^.name)) and (length(t^.name)< length(m^.name)) then 
       begin 
        l^.next:=t;
        t^.next:=m;
        c^.next:=t^.next;
        l:=go;
       end else l:=l^.next;
      end;
     go:=go^.next;
     k:=k+1;
    end;
   end;
        
   

begin

 assign(f,'C:\Users\e6530\Desktop\Program\1-2\input.inp');
 reset(f);
 readfile(one, f);
 close(f);
 logic(one);
 go:=one;
 while go<> nil do
  begin
   writeln(go^.name);
   go:=go^.next;
  end;
end.

_____
Код программы нужно выделять (форматировать) тегами [CODE] [/CODE] (читать FAQ)
Модератор