Ошибка при присвоении значения полям записи - Free Pascal

Формулировка задачи:

                    Листинг программы
                
 
                        
                          
                    
 uses crt;
 type e = record
         who: string[2];
        what: integer;
 end;
      z=^e;
 var 
    p: z;
 begin clrscr;
    p^.who:='ab';// здесь вылазит ошибка"Program recieved signal SIGSEGV Segmentation fault"
    p^.what:=10;
  writeln(p^.who,p^.what);
 end.

почему возникает ошибка?

Решение задачи: «Ошибка при присвоении значения полям записи»

Листинг программы

uses crt;
 type e = record
         who: string[2];
        what: integer;
 end;
      z=^e;
 var 
    p: z;
 begin clrscr;
    new(p); // память кто выделять будет?
    p^.who:='ab';// теперь здесь  все нормально
    p^.what:=10;
  writeln(p^.who,p^.what);
 end.

Объяснение кода листинга программы

Объявление типа записи e с полями who и what.
Объявление указателя z на тип e.
Объявление переменной p типа z.
Очистка экрана с помощью функции clrscr.
Выделение памяти под переменную p с помощью функции new.
Присваивание значения полю who переменной p с помощью ссылки ^.
Присваивание значения полю what переменной p с помощью ссылки ^.
Вывод значения полей who и what с помощью функции writeln.
Ожидаемый результат: вывод на экран ab 10.