динамические структуры данных, указатели+массив.. Опции

[compiler]

Добрый день, помогите разобраться с указателями..
необходимо.Компонентам массива целых присваиваются сдвинутые на 65 значения индекса, печатается массив целых. Переменной-указателю на символьный массив присваивается адрес массива целых. Снова распечатывается массив, но по адресам значений. Вместо последовательности чисел будет напечатана последовательность ASCII символов от А до z с пробелами.
собственно есть текст проги, но мне он не ясен помогите пожалуйста..
а вот текст..

Program ReInterpretation;	
Uses  Crt;
Type
	A = Array [0..99] of char;	
Var
	X : Array [0..49] of integer;	
	pA : ^A;				
	i : integer;
Begin
	ClrScr;
	for i := 0 to 49 do   begin
		X[i] := 65+i;		
		write(X[i], ' ');		
	End;
	
	pA := @X;
   
	writeln;
   
	for i := 0 to 99 do
		write(pA^[i],' ');		
   
	readln;
	read;
End.

заранее благодарен...



Добавлено через 2 мин.
вроде все стало ясно... прошу прощение что побеспокоил..

[compiler]

собственно задача из <<той же серии>>...

Uses
	Crt;
Var
	P : pointer;

Procedure Test(p: pointer);
Begin
	p := @P;	{Определение адреса локального параметра}
	writeln ('', Seg(p^), ':', Ofs(p^));
End;

Begin
	ClrScr;
	Test(P);		{Вызов процедуры}
	writeln('', Seg(p^), ':', Ofs(p^));
	readln;
	read;
End.

ее я точно сам не пойму