Курсовая работа: Разработка класса прямоугольников

n : pNode;

begin

n := New(pNode);

n.id := IntToStr(num);

Inc(num);

n.x := x;

n.y := y;

n.w := w;

n.h := h;

n.next := top;

top := n;

newRect := n.id;

end;

procedure stack.delRect(id : string);

var

f, d : pNode;

begin

f := top;

if f <> nil then

if f.id = id then

begin

top := top.next;

Dispose(f);

end

else

begin

while f.next <> nil do

begin

if f.next.id = id then