Неправильные порядок списка

[dimorik]

Со списками давно не работал. Подскажите что не так?

type
    Tfinal_res = ^final_res;

    final_res = Record
    number: integer;
    phone: string;
    next: Tfinal_res;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  i: integer;
  p_temp, p_new: Tfinal_res;
  head: Tfinal_res;

begin
    p_temp := nil;
    p_new := nil;
    head := nil;

    Memo1.Lines.Add('Запись списка...');

    for i := 0 to 9 do
       begin
            new(p_new);
            p_new^.number := i;
            p_new^.phone := IntToStr(i);
            Memo1.Lines.Add(IntToStr(p_new^.number)+' --- '+p_new^.phone);

           if head = nil then
              begin
                p_new^.next := p_temp;
                p_temp := p_new;
                head := p_temp;
              end
              else
              begin
                p_new^.next := p_temp^.next;
                p_temp^.next := p_new;
              end;
       end;

        Memo1.Lines.Add('');
        Memo1.Lines.Add('Чтение списка...');

        p_temp := head;
        while p_temp <> nil do
          begin
            Memo1.Lines.Add(IntToStr(p_temp^.number)+' --- '+p_temp^.phone);
            p_temp := p_temp^.next; // указатель на следующий элемент

          end;

end;

Почему порядок чтения не такой как порядок записи?

[Аватар]

           p_new^.next := nil;
           if head = nil then head := p_new
                         else p_temp^.next := p_new;
           p_temp := p_new;

вместо

           if head = nil then
              begin
                p_new^.next := p_temp;
                p_temp := p_new;
                head := p_temp;
              end
              else
              begin
                p_new^.next := p_temp^.next;
                p_temp^.next := p_new;
              end;

[dimorik]

Спасибо. Работает.