Тип PtrRec Objects

================================================================= Объявление PtrRec = record Ofs, Seg: Word; end;

Функция Запись, содержащая значение сегмента и смещения указателя.