указатели, объясните, пожалуйста. Опции

[lopata]

Только начала изучать указатели. Не совсем все понимаю. В частности не мог бы кто-нибудь объяснить простой пример :

program Pointer1;
type
TArr = array[1..5] of integer;
var
PArr: лТАгг; {Указатель на массив}
Arr: TArr;
i: integer;
begin
PArr := @Arr; {PArr содержит адрес первого элемента массива Arr}
for i := 1 to 5 do
begin
Write(1,'-й элемент массива = ');
Readln(PArrA[i]); {Учитывая то, что PArr указывает
на первый элемент массива Arr,
PArrA - это аналог идентификатора Arr}
end;
for i := 1 to 5 do
begin
PArr := @Arr[i]; {PArr содержит адрес i-го элемента массива Arr}
Writeln(PArrA[1]); {PArrA - значение i-го элемента массива}
end;
end.

Не понятно почему указывает на первый элемент :

PArr := @Arr; {PArr содержит адрес первого элемента массива Arr}

и

PArr := @Arr[i]; {PArr содержит адрес i-го элемента массива Arr}
Writeln(PArrA[1]); {PArrA - значение i-го элемента массива}

Совершенно непонятно что там делает Единица .Writeln(PArrA[1]);

Объясните пожалуйста и Не ругайтесь, только). Действительно хочу разобраться.

Сообщение отредактировано: lopata - 15.12.2009 21:51

[lopata]

как бы тебе сказать...у меня все откомпилировалось...

PROGRAM Din;
USES Wincrt;
TYPE
    TArr = array [1..5] of integer;
VAR
    PArr : ^TArr;
    Arr : Tarr;
    i : integer;
Begin
PArr := @Arr;
for i := 1 to 5 do
      begin
	   Write(i,'-tyi element of array = ');
	   Read(Parr^[i])
      	 end;
for i := 1 to 5 do
       begin
           Parr := @Arr[i];
	   WriteLn(Parr^[1]);
       end;
End.

Добавлено через 8 мин.
и зачем указывать на первый элемент массива?