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. 

SES CRT;
CONST
PATH='C:\F1.TXT';
TYPE
DATA=CHAR;
LINK=^RS;
RS=RECORD VAL:DATA;
LNK:LINK;
END;
TF=TEXT;
VAR
F:TF;
A:LINK;
B:WORD;

PROCEDURE ADD(VAR A:LINK;B:DATA);
BEGIN
IF A<>NIL THEN ADD(A^.LNK,B) ELSE
BEGIN
NEW(A);
A^.VAL:=B;
A^.LNK:=NIL;
END;
END;

PROCEDURE LOAD(VAR F:TF;VAR A:LINK);
VAR
I:DATA;
BEGIN
ASSIGN(F,PATH);
RESET(F);
A:=NIL;
WHILE NOT EOF(F) DO
BEGIN
READ(F,I);
ADD(A,I);
END;
END;

PROCEDURE OUTPUT(A:LINK);
BEGIN
WHILE A<>NIL DO
BEGIN
WRITE(A^.VAL);
A:=A^.LNK;
END;
END;

PROCEDURE MIN(A:LINK;VAR B:WORD);
VAR
I:WORD;
BEGIN
	 B:=256;
	 WHILE A<>NIL DO
	 BEGIN
		  IF LENGTH(A^.VAL)<B THEN B:=LENGTH(A^.VAL);
		  A:=A^.LNK;
	 END;
	 IF B=256 THEN B:=0;
END;

BEGIN
CLRSCR;
LOAD(F,A);
OUTPUT(A);
MIN(A,B);
WRITELN;
WRITELN('MIN=',B);
READLN;
END.

PROCEDURE MIN(A:LINK;VAR B:WORD);
VAR
I:WORD;
ch:integer;
BEGIN
     B:=256;
     WHILE A<>NIL DO
      BEGIN
        WHILE not eol(A^.Val) DO{либо eol либо eoln}
          ch:=ch+1;
      
      IF ch<B THEN B:=ch;
      A:=A^.LNK
      END;
     IF B=256 THEN B:=0;
END;

cch:char;
...........
WHILE A<>NIL DO
      BEGIN
        read(A^.Val,cch);
        WHILE cch<>#13  DO{13-это enter}
             begin
               read(A^.Val,cch);
.................

Цитата(D1ma @ 1.06.2009 17:04)

Ну получается что только один символ, т.к. char, получается что подтверждаю )

PROCEDURE MIN(A:LINK;VAR B:WORD);
VAR
  I:WORD;
BEGIN
  B:=256;
  i:=0;
  WHILE A<>NIL DO begin
    case A^.VAL of
      #13: ;
      #10: begin
        if i<b then b:=i;
        i:=0
      end
      else Inc(i)
    end;
    A:=A^.LNK;
  END
END;

USES CRT;
CONST
PATH='C:\TPascal\F1.TXT';
TYPE
DATA=string;
LINK=^RS;
RS=RECORD VAL:DATA;
LNK:LINK;
END;
TF=TEXT;
VAR
F:TF;
A:LINK;
B,ch:WORD;
cch:char;
str:text;

PROCEDURE ADD(VAR A:LINK;B:DATA);
BEGIN
IF A<>NIL THEN ADD(A^.LNK,B) ELSE
BEGIN
NEW(A);
A^.VAL:=B;
A^.LNK:=NIL;
END;
END;

PROCEDURE LOAD(VAR F:TF;VAR A:LINK);
VAR
I:DATA;
BEGIN
ASSIGN(F,PATH);
RESET(F);
A:=NIL;
WHILE NOT EOF(F) DO
BEGIN
READ(F,I);
ADD(A,I);
readln(f);
END;
END;

PROCEDURE OUTPUT(A:LINK);
BEGIN
WHILE A<>NIL DO
BEGIN
WRITE(A^.VAL);
A:=A^.LNK;
writeln;
END;
END;

PROCEDURE MIN(A:LINK;VAR B:WORD);
VAR
I:WORD;
BEGIN
	 B:=256;
	 WHILE A<>NIL DO
	 BEGIN
      ch:=0;
      rewrite(str);
      write(str,a^.val);
      reset(str);
      read(str,cch);
      while cch<>#26 do begin
       read(str,cch);
       ch:=ch+1;
      end;
		  IF ch<B THEN B:=ch;
		  A:=A^.LNK;
	 END;
	 IF B=256 THEN B:=0;
END;

BEGIN
CLRSCR;
assign(str,'C:\TPascal\f2.txt');
LOAD(F,A);
OUTPUT(A);
MIN(A,B);
WRITELN;
WRITELN('MIN=',B);
READLN;
END.

Цитата(D1ma @ 1.06.2009 20:15)

PROCEDURE MIN(A:LINK;VAR B:WORD);
VAR
  I:WORD;
BEGIN
  B:=256;
  i:=0;
  WHILE A<>NIL DO begin
    case A^.VAL of
      #13: ;
      #10: begin
        if i<b then b:=i;
        i:=0
      end
      else Inc(i)
    end;
    A:=A^.LNK;
  END;
  if i<b then b:=i;
END;

PROCEDURE MIN(A:LINK;VAR B:WORD);
VAR
  I:WORD;
BEGIN
  B:=256;
  i:=0;
  WHILE A<>NIL DO begin
    case A^.VAL of
      #13: ;
      #10: begin
        if i<b then b:=i;
        i:=0
      end
      else Inc(i)
    end;
    A:=A^.LNK;
  END;
  if (0<i)and(i<b) then b:=i else if b=256 then b:=0
END;

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

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

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);

type
  pSlovo= ^Slovo;
  Slovo= record
    c: char;
    Next: pSlovo;
  end;
  pSpisok=^Spisok;
  Spisok=record
    s,s1: pSlovo;
    Next: pSpisok;
  end;

var
  L,L1: pSpisok;
  t: text;
  b,i: word;

begin
  assign(t,'f1.txt');
  reset(t);
  L:=nil;
  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;
  if (0<i)and(i<b) then b:=i else if b=256 then b:=0;
  write('MIN=',b)
end.

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;