Массивы Опции

[Reber]

Разве так нельзя писать?
Type
     a=array[1..n] of integer
Пишет Error 133...

[Demik]

Да это точно в Паскале есть два не достатка:
1 Нет операции возведения
2 И нет динамических массивов

Вот собственно говаря как это можно обойти

{$R-}  {Это чтоб не было лишних ругательств }
Type
 MyType={здесь описываешь тип элемента массива, скажем} Word;

Type
 MyArray=Array[1..1] of MyType;  {Описываем массив всего из 1 элемента}
 MyArrayPtr=^MyArray;
[color=Red][/color]
Var
 DynamicArray: MyArrayPtr;       {Это указатель на наш динамически массив}
 Count,                          {Это вводимый размер массива}
 I: Word;

Begin
 Write('Число элементов массива: '); {Вводим размер массива}
 ReadLn(Count);
 GetMem(DynamicArray,Count*SizeOf(MyType)); {выделяем по него память}
 For I:=1 to Count do DynamicArray^[I]:=I;  {заполняем наш массив значениями}
 For I:=Count downto 1 do
   WriteLn(DynamicArray^[I]);               {печатаем массив задом-наперед}
 FreeMem(DynamicArray,Count*SizeOf(MyType)) {уничтожаем массив}
End.

P.S. Если элементы массива более сложные (например, строки или записи),
    то стоит воспользоваться списками или коллекциями,