Проблема с созданием динамического списка

[gvilon]

Создать процедуру создания списка с 5-ти елементов, и процедуру для вывода информационных полей из этого списка.

type pp=^elem;
     elem=record
      inf1:integer;
      next:pp;
     end;
     
var ptb, pte, pt:pp;

procedure newList;
var i:integer;
begin
  ptb:=nil;
  for i:=1 to 5 do
  begin
    new(pt);
    pt^.inf1:=random(20);
    if ptb=nil then 
      ptb:=pt;
    pte^.next:=pt;
    pte:=pt;   
  end;
  pte^.next:=nil;
end;

procedure showList;
begin
  while ptb <> nil do
  begin
    writeln(ptb^.inf1);
    ptb:=ptb^.next;
  end;
end;

begin

  randomize;
  
  newList;
  showList;
  
end.

ptb - указатель на первый елемент списка
pte - на последний
pt - текущий

Уже 3 часа сижу над прогой и не выходит(((

[TinMan]

Сообщение от gvilon

Уже 3 часа сижу над прогой и не выходит(((

Уверен, эти три часа не прошли даром )).

Вот, смотри.

const
  n= 5;

type
  pp= ^elem;
  elem= record
    inf1: integer;
    next: pp;
  end;

var
  ptb, pte: pp;

procedure newList;
var
  i: integer;
  pt: pp;
begin
  ptb:= nil;
  for i:=1 to n do begin
    new(pt);
    pt^.inf1:= 100+i;  { random(20); }
    if ptb=nil then begin
      ptb:= pt;
      pte:= pt
    end
    else pte^.next:= pt;
    pte:= pt;
    pte^.next:= nil;
  end;
end;

procedure showList;
begin
  while ptb <> nil do begin
    writeln(ptb^.inf1);
    ptb:=ptb^.next;
  end;
end;

begin
  { randomize; }
  newList;
  showList;
end.

Если есть вопросы - давай.

[Step_UA]

вместо

if ptb=nil
 then
  ptb:=pt;
pte^.next:=pt;
pte:=pt;

нужно

if ptb=nil
 then 
  ptb:=pt
 else
  pte^.next:=pt;
pte:=pt;

т.к. при создании первого элемента, pte не создан ...

[gvilon]

Спасибо. Теперь понял в чем ошибка была. Просто раньше не встречался с таким типом задач.