Работа с ппамятью. Опции

[Роман]

Помогите совтеом или делом.

Задание такого рода: Напишите прорамму, которая выводит на экран монитора Сегмент(часть адреса) начала
её кода, начала данных и кучи, конца кучи. Сегмент границы свободной кучи и стека. Запустите программу
из ТР и вне его. Сравните результаты. На основе сравнения допишите проверкузагружен ли ТР или нет.

Вот что сделал
Код:

Код

var
cs_,ds_:word;
begin
cs_:=cseg;
ds_:=dseg;
writeln('Начало кода ',cs_);
writeln('Начало данных ',ds_);
end.

А вотс остальным проблема.