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

[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( сразу после запуска): точно не помню, что-то типа "не хватает места в памяти"
В чем проблема?И как её устранить?

[mj]

В этом коде ошибки нет, всё работает...

[Maxic$$$@a]

     Процедуры поставь end;

[P@sh@]

ошибка таки есть, хотя и в другом - думаю процедура должна быть описана так - procedure add(var p:pStroka;s:string);
а что "нет памяти", так это уже другое дело, поди это у тебя 1524368-й элемент ? или директивы/настройки динамической памяти в паскале стоят такие. попробуй написать в начале программы что-то типа {$M 8192,0,655360}, что он всю доступную память мог динамически выделить

[алекс]

луче бы ты текст всей проги привел  :), а то так сложно сказать что-либо. кста, а ты не забывал потом процедурой dispose все эти объекты в память возвращать ???