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

[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 мин.
вроде все стало ясно... прошу прощение что побеспокоил..

[volvo]

program Primer1;
const
	SizeOfReal = 6;       {Длина переменной типа REAL}
	N = 100;              
	M = 200;
var
	i, j: integer;
	PtrStr: array [1..N] of pointer;
	s: real;
type
	RealPoint = ^real;
    {-----------------}
Function AddrR(i,j: word): RealPoint;
// По индексу в массиве указателей i и индексу элемента внутри i-го массива 
// выдает адрес вещественной переменной
begin
	AddrR := RealPoint(
		// "собираем" адрес из сегмента : смещения, где
		ptr(
			seg(PtrStr[i]^), // сегмент = сегменту области памяти, на которую
                                               // указывает ptrstr[i]
			ofs(PtrStr[i]^)+(j-1)*SizeOfReal // смещение = смещению этой же
                                               // области памяти + количеству байт, предшествующих
                                               // элементу с заданным индексом (j)
		)
	)
end;     {AddrR}
    {-----------------}
Function GetR(i,j: integer): real;
// Выдает значение вещественной переменной по индексу массива - контейнера
// и номеру элемента в этом массиве
begin
	GetR := AddrR(i,j)^ 
        // для того, чтобы получить значение самой переменной достаточно
        // просто разыменовать указатель, поскольку он уже приведен к типу
        // "указатель на Real" в функции
end;     {GetR}
    {-----------------}
Procedure PutR(i,j: integer; x: real);
// Помещает в позицию J массива-контейнера I значение X
begin
	AddrR(i,j)^ := x
end;     {PutR}
    {-----------------}

begin    {Main}

	// Выделяем память для N массивов-контейнеров (каждый - на M элементов типа Real)
	for i := 1 to N do begin
		GetMem (PtrStr[i], M*SizeOfReal);
		// и заполняем их случайными значениями...
		for j := 1 to M do PutR(i, j, Random)
        end;
		
	// Ну, дальше я думаю все понятно?
	s := 0;
	for i := 1 to N do
		for j := 1 to M do
			s := s + GetR(i,j);
	WriteLn(s / (N * M): 12:10);
end.    {Main}	

[compiler]

спасибо, буду разбираться...

оффтоп но перед этим отдохну... погодка чудная