Найдите оплошности заполните порожние местаvar a: [1..100] of integer; N:

Найдите оплошности заполните пустые места
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],' ');