Указательные типы

[kuy]

Почему выдаёт ошибку? Что исправить в коде, что бы ошибки небыло?(мне нужно создать линейный динамический список)

[Felian]

procedure New(var X: Pointer);

Из справки

Создаём новую динамическую переменную и устанавливает на неё указатель P.

В коде Делфи, процедура New создаёт новую динамическую переменную и устанавливает на неё переменную-указатель. P - переменная любого указательного типа. Размер блока выделенной памяти соответствует размеру типа, на который указывает P. Новая созданная переменная может быть доступна как P^. Если недостаточно памяти для динамического выделения, возникает исключение EOutOfMemory.

В твоём случае, p является переменной типа структура, а не указатель. Наверное, так надо:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  One = ^Person;
  Person = record
    name: String[15];
    age: Byte;
    next: One;
  end;

var
  p: One;
  i: Integer;

begin
new(p);
end.