Проблемы с памятью. Опции

[Mixa]

Такая проблема:
...
type pStroka=^Stroka
    Stroka=record
               st:string;
               next:pStroka
         end;
procedure add(p:pStroka;s:string);
var q:pStroka;
begin
new(q);  {Здесь выдаёт ошибку}            
q^.st:=s;
q^.next:=p;
p:=q
end;
...

Run-time error( сразу после запуска): точно не помню, что-то типа "не хватает места в памяти"
В чем проблема?И как её устранить?