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

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

[Lapp]

Krjuger, я понимаю, что

Не ругайте сильно,я только учусь.

- но почему ты заставляешь других учиться на твоих ошибках? Еще раз: проверяй свои творения перед публикацией! И учи матчасть..

D1ma, мне как-то странно, что у тебя данные имеют тип char, а не string (как в начале). Можешь пояснить? Ты понимаешь, что LENGTH(A^.VAL) всегда будет давать 1 в этом случае?

Ты не паникуй, сделаем. Только ты говори яснее, что ты хочешь получить и как.

[D1ma]

Krjuger, я понимаю, что - но почему ты заставляешь других учиться на твоих ошибках? Еще раз: проверяй свои творения перед публикацией! И учи матчасть..

D1ma, мне как-то странно, что у тебя данные имеют тип char, а не string (как в начале). Можешь пояснить? Ты понимаешь, что LENGTH(A^.VAL) всегда будет давать 1 в этом случае?

Ты не паникуй, сделаем. Только ты говори яснее, что ты хочешь получить и как.

Первый вариант рабочий, но как оказалось нельзя использовать STRING, а только CHAR.( до сих пор не пойму почему)
Далее string поменял на char,чуток подправил,посимвольный ввод работает.
Но вот как изменить процедуру min, я так и не додумался...

p.s. Вариант, предложенный Krjuger не работает.
read(A^.Val,cch); это допустимо только же для файлов? а тут список.

[Lapp]

read(A^.Val,cch); это допустимо только же для файлов? а тут список.

Да, конечно.
То есть, ты имеешь в виду, что в каждом элементе списка только один символ?
Будь добр, подтверди (а лучше опровергни)), ибо мне все равно не верится в такое диво.
Может, переспросишь препа? или кого-нить еще..

В принципе, ничего особо трудного, ибо концы строк ты тоже заносишь в список.. но странно)).