Увы, нет.
...var Y:array[1..N] of real... ошибка в написании, компилятор сообщит, что тип параметра не может быть описанием массива с границами. Пример:
var a:array [1..n] of real; Procedure ab(var b:array [1..n] of real);
К сожалению переменная и формальный параметр не одного типа.
Стоит использовать Type:
type ba= array [1..n] of real; var a: ba; Procedure ab(var b:ba);
