program Project1;
type
  DataPtr = ^Data;

  Data = record
    name : string;
    next : DataPtr;
  end;

var
  DataStorage, i : DataPtr;
  newData : Data;

procedure Add(value:Data);
var
  i  : DataPtr;
begin
  if not Assigned(DataStorage) then
  begin
    New(DataStorage);
    DataStorage^ := value;
  end
  else
  begin
    i := DataStorage;
    while true do
      if not Assigned(i^.next) then
      begin
        New(i^.next);
        i^.next^ := value;
        break;
      end;
  end;
end;

procedure Remove(index:integer);
begin

end;

begin
  newData.name := 'test';
  Add(newData);
  newData.name := 'test2';
  Add(newData);

  i := DataStorage;
  while Assigned(i) do
  begin
    writeln(i^.name);
    i := i^.next;
  end;

  readln;
end.