процедура. вычислить порядковый номер максимального элемент массива b. (Pascal)

[Serge_Bliznykov]

Она работает, но только если число наиболее приближенное к целому одно.

так. у меня к Вас 2 (два) вопроса.
1-й. Какую задачу Вы хотите решить?!
У Вас постоянно путается максимальное число и число наиболее приближённое к целому!

2-й. Проиллюстрируйте задачу примером - какой массив (значения) Вы вводите (небольшой - десяти значений будет достаточно), и что должно быть в результате (что должна выдать программа и объясните почему)?

Пока мой телепатор дымится, но не выдаёт ответа, что за задачу Вы решаете.
Извините.