ЗАДАНИЕ В ПАСКАЛЕ ПОМОГИТЕ ПОЖАЛУЙСТА

Все переркал, как разобрать то

А что тут помогать при полном незнании тобой языка?
1. С самой первой строки объявляешь константу равной нулю, а потом массив размерностью [1...0]
Сам то понял чего написал?
2. a[i] = Random(100); - это верно.
Randomize - это инициализация генератора псевдослучайных чисел и его нужно использовать ДО первого оператора Random()

1. С самой первой строки объявляешь константу равной нулю, а потом массив размерностью [1...0]
Сам то понял чего написал?
2. a[i] = Random(100); - это верно.
Randomize - это инициализация генератора псевдослучайных чисел и его нужно использовать ДО первого оператора Random()

ОБАЛДЕТЬ. так вопросы не задают

Uses CRT; { Подключение модуля, в котором определена процедура ClrScr. В модуле System процедура ClrScr отсутствует. }
Const N=MaxInt; { Константа N — число элементов массива, может быть любым положительным целым числом [1..MaxInt] }
Var
　a: array [1..N] of Integer; // Сам массив из N элементов.
　i: integer; // Вспомогательная переменная-счётчик.
Begin
// ПОДГОТОВКА
　Randomize; { Предварительная инициализация генератора случайных чисел. }
　ClrScr; // Очистка экрана.
// БЛОК ИНИЦИАЛИЗАЦИИ МАССИВА
　for i:=1 to N do
　begin
　　a[i]:=Random(100); { Присвоение псевдослучайного неотрицательного целого числа <100 }
　　write(a[i], ' '); // Вывод на экран одной сплошной строкой.
　end;
// БЛОК ОБРАБОТКИ
　for i:=1 to N-1 do
　　a[i]:=a[i+1]; { Параллельное копирование содержимого массива на одну ячейку в сторону меньших