Chuj

TElement = record
Y:integer;
Next1, Next2:TPointElement;
end;


Type
  TPointElement = ^TElement;