Задача на поле, Задать поле чисел Опции

[Евген]

Никак не могу решить задачку на поле.
Задача:
Задать 10 целых чисел.После ввода программа выполнит следующие действие, например:
2 10 3 ... 5 7 {ввод произвольных чисел}
-8 7 .... -2 0 {из левого числа вычитается правое, если правого соседа нет, пишется ноль}

Я написал, как сумел, но что-то не работает.Может быть кто-нибудь укажет мне ошибки.

Код

program pole4;
const=10;
var pole:array [1..pp] of integer;
i:integer;
begin
for i:= 1 to pp do
begin
pole[i]:=pole[i] - pole[i+1];
end;
pole[pp]:= 0;
var x:longint;
begin
for i:= 1 to pp do
write('Zadej cisla: '); read(x);
pole[i]:= x;
write(pole[i]);
end.

[AlaRic]

Код

program pole4;
const pp=10;
var pole:array [1..pp] of integer;
i:integer;
begin
for i:=1 to pp do read(pole[i]);
for i:= 1 to pp-1 do
begin
pole[i]:=pole[i] - pole[i+1];
end;
pole[pp]:= 0;
for i:= 1 to pp do write(' ',pole[i]);
end.

[Евген]

Большое спасибо Аларик.Очень выручил.