Найдите ошибки заполните пустые места
var
a: … [1..100] of integer;
N: integer; // Количество элементов в массиве
i: real;
begin
…('Введите количество элементов в массиве: ');
readln(N);
write('Введите элементы массива: ');
… i:=1 to N do
read(a[i]);
write('Вывод элементов массива: ');
for i:=1 to N do
write(a[i],' ');