Помогите пожалуйста, в чем ошибка не могу понять.
после for должно идти i:=1 to N (это если ты хочешь перебрать массив)
также лишний end; в середине программы