Список (динамические структуры), выведение на экран

[molekyla]

Суть задачи: нужно создать список целых чисел и вывести на экран. Вот никак не могу понять как вывести список на экран (или я неправильно создаю его).

type TData = Integer;
       TPElement = ^TElement;
       TElement = record
                    Data : TData;
                    Next : TPElement;
                  end;
var a:TPElement; b:Integer;
begin
      repeat
        New(a);
        Readln(b);
        a^.Data:=b;
        a:=a^.Next;
      until b=0;

      repeat
        writeln(a^.data,' ');
        a:=a^.Next;
      until a.Next=nil;

      Readln;
end.

[Sparky]

procedure ListCont.Print_forward(start:PList); //процедра печати элементов с первого(начало)
begin
 if start=nil then writeln('List not init')
 else
 begin
 while (start<>nil) do
  begin
   write(start^.inf,' ');
   start:=start^.next;
  end;
 end;
end;

примерно так

[molekyla]

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

procedure ListCont.Print_forward(start:PList); //процедра печати элементов с первого(начало)
begin
 if start=nil then writeln('List not init')
 else
 begin
 while (start<>nil) do
  begin
   write(start^.inf,' ');
   start:=start^.next;
  end;
 end;
end;

насколько я понимаю то эта процедура ничем не отличается от этой

repeat
  writeln(a^.data,' ');
  a:=a^.Next;
until a.Next=nil;

где то не тут брешь в моей проге...
Но всеравно спасибо за помощь, натолкнулся на решение в методичке. Может кто то знает что не так. Если откомпилировать даный код то зацикливается программа и в результате выводит одни нули. Впрочем это не так уж и важно, думаю со временем само дойдет.
*ушел писать строчки кода*

[Sparky]

ошибка в создании списка, теряется связь с последующими элементами

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

1.В списке элемент указывает на каждый следующий, а не сам на себя.

repeat
        New(a);
        Readln(b);
        a^.Data:=b;
        a:=a^.Next;
      until b=0;

2.FIFO(first in first out), вы не указали указатель на первый элемент списка.

repeat
        writeln(a^.data,' ');
        a:=a^.Next;
      until a.Next=nil;

var a, p, first:TPElement; b:Integer;
begin
      new(a);
      readln(b);
      a^.Data:=b;
      a^.Next := nil;
      p := a;
      first := a;
      while (b <> 0) do
      begin
        New(a);
        Readln(b);
        a^.Data := b;
        p^.Next := a;
        a^.Next := nil;
        p := a;
      end;
      repeat
        writeln(first^.data,' ');
        first:=first^.Next;
      until first.Next=nil;

      Readln;
end.