1) описание массива должно быть константным, запись n+20 - переменная. Изменить: задать n+20 в виде константы.
2) будет куча ошибок
а) i: Byte - есть декларация, но нет инициализации перед использованием, вероятно, будут ошибки при попытке использования как индекс массива. (не совсем уверен, возможно разные среды могут проводить автоинициализацию в ноль, в таком случае тоже будет ошибка, но уже из-за несуществующего индекса массива)
б) нет декларации переменной C, хотя она используется (If C[i] Mod 10=0 Then p:=p+1;)
