ciao
non mi va sto codice
appena inizia la riga del for mi si chiude la win-dos

codice:
program LISTE;
const DIM=4;

type
t_LIST = ^t_STRUCT;
t_STRUCT = record
   STR:string[15];
   NEXT:t_LIST;
end;

var I:integer;
    FIRST,LIST:t_LIST;
begin
 New (FIRST);
 write(' Immetti la 1# stringa : ');
 read(FIRST^.STR);
 LIST:=FIRST;
 for I:=2 to DIM do
     begin
         New (LIST^.NEXT);
         LIST:=LIST^.NEXT;
         write(' Immetti la ',I,'# stringa : ');
         read(LIST^.STR);
     end;
  LIST^.NEXT:=NIL;
end.
se vedete orrori non fateci caso sono agli inizi con i caricamenti di elementi su liste con cicli

ciao
grazie eventualmente