Ошибка у меня возникает при вызове этой процедуры...
Либо указатель пустой или число освобождамых байтов выходит за границы кучи ???
вот код:

procedure Push(E:ElementType;var S:Stack);
var
P:pStackElem;
begin
	 P:=new(pStackElem);
	 GetMem(P^.Elem,SizeOf(ElementType));
	 Move(E,P^.Elem,SizeOf(ElementType));
	 P^.Next:=S.Top;
	 S.Top:=P;
	 S.Size:=S.Size+Sizeof(ElementType)+SizeOf(pStackElem)*2+SizeOf(Pointer);
end;

procedure Pop(S:Stack;var E:ElementType);
var top:pStackElem;
begin
	 if S.Top<>nil then
	 begin
	 Move(S.Top^.Elem,E,SizeOf(ElementType));
	 top:=S.Top^.Next;
		 FreeMem(S.Top^.Elem,SizeOf(ElementType));{Вот здесь и возникает ОШИБКА!!!}
	 dispose(S.Top);
	 S.Top:=top;
	 S.Size:=S.Size-Sizeof(ElementType)-SizeOf(pStackElem)*2-SizeOf(Pointer);
	 end
end;

дополнение:

pStackElem = ^StackElem;
	pElement = ^Element;
	StackElem = record
			  Elem:Pointer;
			  Next:pStackElem;
			  end;

	Stack = record
		  Top: pStackElem;
		  Size: Integer;
		  end;

	Element = record
			data:byte;
			end;
	ElementType = Element;

Вроде бы все так делаю:
сколько выделил места в памяти под указатель - столько и освобождаю:

...
GetMem(P^.Elem,SizeOf(ElementType));
...

...
FreeMem(S.Top^.Elem,SizeOf(ElementType));
...

Ты в операторе Move используешь указатель вместо самой величины. Этим самым ты портишь пойнтер.

procedure Push(E:Element;var S:Stack);
var
  P:pStackElem;
begin
  P:=new(pStackElem);
  GetMem(P^.Elem,SizeOf(Element));
  Move(E,P^.Elem^,SizeOf(Element));  {было Move(E,P^.Elem,SizeOf(ElementType));}
  P^.Next:=S.Top;
  S.Top:=P;
  S.Size:=S.Size+Sizeof(Element)+SizeOf(pStackElem)*2+SizeOf(Pointer);
end;

procedure Pop(S:Stack;var E:Element);
var
  top:pStackElem;
begin
  if S.Top<>nil then begin
    Move(S.Top^.Elem^,E,SizeOf(Element));  {было Move(S.Top^.Elem,E,SizeOf(Element));} 
    top:=S.Top^.Next;
    FreeMem(S.Top^.Elem,SizeOf(Element));{Вот здесь и возникает ОШИБКА!!!}
    dispose(S.Top);
    S.Top:=top;
    S.Size:=S.Size-Sizeof(Element)-SizeOf(pStackElem)*2-SizeOf(Pointer);
  end
end;

ужас! какая глупая ошибка моя ... невнимательность (((
не таким образом я "разжевал" параметры процедуры Move )))
большое спасибо вам, lapp!

бывает..
Хочешь совет? Если совсем ничего не получается долгое время, то начинай убирать из программы все "несущественное". Либо на некотором этапе ошибка пропадет (как сейчас), либо ты упростишь себе задачу, освободившись от шелухи.
Успехов!

А ошибка по-прежнему возникает...

Переезжаем в Задачи...

угу возникает - уже пофиксил
а именно это исправил:


на



TO lapp: да действительно не впервые.... хотя некоторые участки кода я убирал (комментировал) все равно не решало проблему... Все зависит от того насколько грубо мы ошиблись )

еще один вопрос касаемый реализации стека...
Размер одного элемента стека.
Я таким образом его задал -


исходя из определенных типов данных


я правильно рассудил?

А почему нельзя просто

sizeOne=Sizeof(StackElem)

?

Потому что это будет "неправильный мед" (С) Винни-Пух... Стек содержит указатель, который в свою очередь содержит адрес выделенной памяти, а насколько я понимаю автора, ему нужен именно размер области памяти, занимаемый самой структурой + той областью, где хранятся данные; то есть, насколько уменьшилось количество доступной памяти в куче при размещении в стеке очередного элемента...

volvo верно рассудил

но ведь мне не очень то понятно что именно является "размером стека" - не путать с количеством элементов в стеке... Размер которые занимают данные? или размер всего структуры организации стека?
ну я выбрал последнее... правда на самом деле в из кучи при создании очередного элемента (путем new и GetMem) берется больше байтов чем в sizeOne..

Это ты о чем?

О том, что GetMem/New выделяют память блоками с размером кратным 8...

Это мы знали.

Ну тогда, если это и имелось ввиду, то правильней будет - больше или ровно...