Цитата Сообщение от Eats Посмотреть сообщение
Обратите внимание: он у Вас даже не заканчивается вопросительным знаком!
Что правильно если внимательно прочитать как он написан

- - - Добавлено - - -

Цитата Сообщение от hobot Посмотреть сообщение
передаёт ей входящий параметр = 1
Здесь и заключается ошибка
То есть конечно 1 в качестве параметра передается, но есть нюанс - у фортрана аргументы векторные. С точки зрения паскаля можно считать, что они всегда var, а это уже совсем другая песня

- - - Добавлено - - -

Цитата Сообщение от Eats Посмотреть сообщение
Вот у Вас как код написан неряшливо
Разумеется не неряшливый код "был, но дискеты потерялись, а потому примеров не дам"?