Многосвязные списки, Помощь Опции

[D1ma]

Всем привет.Требуется помощь в написании программы с использованием многосвязных список. Тему плохо понял, поэтому требуется помощь.
Задание: Найти короткую строку.
Сам код программы есть, требуется лишь поспотроить МС -)

 VAR
F:TEXT;
I:WORD;
C:CHAR;
N:WORD;
BEGIN
CLRSCR;
	 ASSIGN(F,'C:\F1.TXT');
	 RESET(F);
	 I:=0;
	 N:=60000;
	 WHILE NOT EOF(F) DO
	 BEGIN
		  IF EOLN(F) THEN
		  BEGIN
			   IF I<N THEN N:=I;
			   I:=0;
			   READ(F,C);
			   READ(F,C);
		  END;
		  READ(F,C);
		  I:=I+1;
	 END;
	 IF I<N THEN N:=I;
	 IF N=60000 THEN I:=0 ELSE I:=N;
	 WRITE('MIN = ');
	 WRITELN(I);

END. 

[D1ma]

Исправьте что не так

while not eof(t) do begin
    if L=nil then begin
      New(L);
      L1:=L  {Запоминаем начало списка}
    end
    else begin
      New(L^.Next);
      L:=L^.Next {переход на след. элемент}
    end;
    with L^ do begin
      next:=nil;{обнуляем ссылку}
      s:=nil;
      while not eoln(t) do with s^ do begin
        if s=nil then begin
          New(s);
          s1:=s {Запоминаем начало подсписка}
        end
        else begin
          New(s^.next);
          s:=s^.next {переход на след. элемент}
        end;
        with  s^ do begin
          read(t,c);
          next:=nil {обнуляем ссылку}
        end
      end;
      readln(t) ; {?} 
    end
  end;
  close(t);

  L:=L1;
  while L<>nil do with L^ do begin
    s:=s1; {Запоминаем начало подсписка}
    while s<>nil do with s^ do begin 
      write©;
      s:=Next {продвижение вперед по списку}
    end;
    writeln;
    L:=Next  {продвижение вперед по списку}
  end; 

  b:=256;
  L:=L1;
  while L<>nil do with L^ do begin
    i:=0;
    s:=s1;
    while s<>nil do with s^ do begin
      case c of
        #13:;
        #10: begin
          if i<b then b:=i;
          i:=0
        end
        else Inc(i)
      end;
      s:=Next {продвижение вперед по списку}
    end;
    L:=Next {продвижение вперед по списку}
  end;