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

[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]

Решил сначала попробывать с использованием типа STRING, c ним все просто

Код

b:=256;
while s<>nil do begin
while s^.sl<>nil do begin
write(s^.sl^.sim);
if length(S^.sl^.sim)<b then b:=length(S^.sl^.sim);
s^.sl:=s^.sl^.ss;
end;
writeln;
s:=s^.cc;
end;write(b);

Но нужно с использованием Char.
В общем считает, но не отдельную строку, а всю длину.

Код

hile s<>nil do begin
while s^.sl<>nil do begin
  write(s^.sl^.sim);

Case S^.sl^.sim of
      #13:;
      #10: begin
if i<b then b:=i;
        i:=0
      end
      else Inc(i)
    end;
    
end;

s^.sl:=s^.sl^.ss;
end;
writeln;
s:=s^.cc;
end;
if (0<i)and(i<b) then b:=i else if b=256 then b:=0;
write('MIN=',b);

Как сделать чтобы считал не всю длину, а токо длину строки?