паскаль: одномерный массив

[Lada05]

у нас сейчас контрольная на полчаса в институте. прошу помочь написать программу (паскаль). очень прошу.

дан одномерный массив A(N). если все элементы этого массива(вектора) составляют арифметическую прогрессию, то вектор инвертировать.

[Stilet]

дан одномерный массив A(N). если все элементы этого массива(вектора) составляют арифметическую прогрессию,

С потолка:

var a:array[1..10] of integer;d,i:integer;
begin
 d:=2;
for i:=1 to 10 do  a[i]:=random(1000);
for i:=1 to 10 do begin
 if a[i]<>a[1]+9*d then begin
  write('Не составляют'); readln; halt;
 end;
{Здесь инвертируем}
end;

[Lada05]

спасибо огромное) только вот время закончилось( не успела(