Динамические списки

[seo-romka]

Решил попробовать, что это такое! Изучил как заполнять, а вот никак не могу считать все элементы, точнее бегунок не могу переместить в начало, выводит лишь последний элемент!

program _spiski;
{$APPTYPE CONSOLE}
uses
  SysUtils;

Type
    MyS = ^el_sp;
    el_sp=Record
      data:Integer;
      next:MyS;
  End;
Var ech:MyS; 
    q,i:integer;
    
Procedure Print_s(ech:MyS);
Begin
  While ech<>nil do
    Begin
      Write(ech^.data:3);
      ech:=ech^.next;
    End;
End;

begin
for i:=1 to 3 do Begin
  New(ech);
  ech^.next:=nil;
  write('BBeguTe q ');
  readln(q);
  ech^.data:=q;
End;
  Print_s(ech);
  readln;
end.

[Летучий_СкилетиК]

поменяйко это

for i:=1 to 3 do Begin
  New(ech);
  ech^.next:=nil;
  write('BBeguTe q ');
  readln(q);
  ech^.data:=q;
End;

на это:

pred:=nil;
for i:=1 to 3 do Begin
  New(ech);
  ech^.next:=pred;
  write('BBeguTe q ');
  readln(q);
  ech^.data:=q;
  pred:=ech;
End;

[veniside]

> Изучил как заполнять

плохо изучили.

program
  LinkedList;

{$APPTYPE CONSOLE}

type
  pListItem = ^listItem;
  listItem = record
    //
    data: Integer;
    next: pListItem;
  end;

// --  --
procedure printList(head: pListItem);
begin
  while (nil <> head) do begin
    //
    write(head.data);
    head := head.next;
  end;
end;

var
  listHead, newItem: pListItem;
  q, i: integer;

begin
  newItem := nil; // make compiler happy
  listHead := nil; // make compiler happy
  //
  for i := 1 to 3 do begin
    //
    if (nil = listHead) then begin
      //
      new(listHead);
      listHead.next := nil;
      newItem := listHead;
    end
    else begin
      //
      new(newItem.next);
      newItem := newItem.next;
    end;
    //
    write('Enter data: ');
    readln(q);
    //
    newItem.data := q;
  end;
  //
  printList(listHead);
  readln;
end.