Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:

Вот задания:
1). Описать переменные-указатели R1,R2, связанные с веществен¬ным типом; I1,I2 – связанные с типом Integer; St - со строкой, не превышающей по длине 15 символов; RRec - с записью с двумя полями:Str типа String[l2] и I типа lnteger. При этом R1 и I1, St и RRec описать с предварительным определением типа, a R2 и I2 -без предварительного определения типа.
Проверить, совпадает ли начальное значение текущего указа¬теля кучи с указателем HeapOrg.
2). Дать значение переменным R1 и I1 с помощью процедуры New. Проследить за перемещением указателя HeapPtr с помощью печати результатов операций сравнения для указателей. Для запоминания текущего значения использовать указатель PP.
Дать значения указателей R2 и I2, присвоив им значения ука¬зателей R1 и I1. Что при этом произойдет с указателем HeapPtr?
3). Дать произвольные допустимые значения динамическим пе¬ременным, на которые указывают переменные R1 и I1. При этом первую из этих динамических переменных ввести с клавиатуры, а второй присвоить целую часть первой. Вывести значения ссылоч¬ных (динамических) переменных, записанных в динамической обла¬сти памяти во фрагментах, связанных с указателями R1,R2,I1,I2. Результат пояснить.
4). Запомнить текущее значение HeapPtr в РР1. С помощью про¬цедуры New задать значение переменной St, запомнить значение HeapPtr в РР2 и с помощью процедуры New задать значение указа¬теля RRec, затем ввести значения соответствующих динамических переменных с клавиатуры.
5). Вывести размер занимаемой памяти для St, RRec и соответству¬ющих динамических переменных (использовать функцию SizeOf). Результат пояснить. Вывести значения строки и записи, на кото¬рые указывают St и RRec.




А вот программа:
[code lang=pascal h=200]program heap;
type
MRecord = record
Str: string[12];
I: integer;
end;

MString = string[15];
MReal = real;
MInteger = integer;
{pRec = ^mRecord;}

var
R2, R1: ^real;

i2, I1: ^integer;
{ I2: ^MInteger; }
St: ^MString;
Rrec: ^mRecord;
{RRec:pRec;}
pp, pp1, pp2: pointer;
HeapOrg: pointer;

begin
write('HeapOrg = HeapPrt? ');
writeln(HEAPORG = HEAPPTR);
pp:=heapptr;
New(R1);
New(I1);
writeln('HeapPtr = pp? ',HeapPtr=pp);
R2:=R1;
I2:=I1;

write('Enter R2: ');
readln(r2^);
i2^:=trunc(r2^);
writeln('I2 = ',i2^);
writeln('r1= ',r1^, ' r2= ',r2^, ' i1= ',i1^, ' i2= ',i2^);
pp1:=HeapPtr;
New(St);
Write('Read String: ');
readln(St^);
writeln('pp1 = HP? ', pp=HeapPtr,' ', HeapPtr=pp1);
New(RRec);
pp2:=HeapPtr;
writeln('Enter RRec.Int & Rrec.Str: ');
readln(RRec^.I, RRec^.Str);
writeln('pp1 = HP? ', pp1=heapptr,' ',pp2=heapptr);
writeln('Size of Rrec: ',sizeof(rrec^));
writeln('Size of Str: ', sizeof(st^));
dispose(st);
writeln('pp2= HP? ', pp2=heapptr);
writeln('pp1= HP? ', pp1=heapptr);
dispose(rrec);
writeln('pp2= HP? ', pp2=heapptr);
writeln('pp1=HP? ', pp1=heapptr);

end.
[/code]

вы можете мне объяснить, что, как и где происходит в каждой строке? т.к. я запутался....