Пример формирования динамического списка — Pascal(Паскаль)

program dinlist;
type
     p_student=^student;
     student=record
          name:string [20];
          next:p_student;
     end;
var
     head:p_student; { начало списка }
     curr:p_student; { текущий элемент списка }
     buf:string[20]; { буфер для ввода с клавиатуры }
begin
     repeat
          write('Фамилия-> ');
          readln(buf);
          if length(buf)<>0 then
               begin
                    new(curr);
                    curr^.name:=buf;
                    curr^.next:=head;
                    head:=curr;
               end;
     until length(buf)=0;
     writeln('** Введенный список **');
     curr:=head;
     while curr<>NIL do begin
          writeln(curr^. name );
          curr:=curr^.next;
     end;
     readln;
end.