Подскажите в чем ошибка? (паскаль)

[artem55555p]

Здравствуйте. Написал программу, мне нужно было организовать стек дисциплин: хранить название дисциплины и количество часов. Программа вроде работает, но при вводе более 5 строк, она вылетает, кто может помочь и объяснить, в чем дело? Мне кажется дело в распределении памяти, но возможно ошибаюсь...
Прикрепляю файл программы.

[Stilet]

А эт чего за паскаль такой?
Вылет происходит на какой строке? Что отладчик показывает?
И функцию сериализации в строку я бы переписал:

function Stack.toStr: array of string;
var
  i: integer;
  p: pnode;
begin
  p:= top;
  i:= 0;
  while p <> nil do
  begin
    setLength(result, Count*2);
      result[i] := p^.predmet; inc(i);
      result[i] := intToStr(p^.hours); inc(i);
    p:= p^.next;
  end;
end;

Где Count -

  Stack = class
  private
    top: pnode;
    Count:Integer;
...
  end;

Инкрементируется в методе Stack.add и Декрементируется в Stack.del