[Drozh]

Ошибка в подпрограмме.

Код:

for i:=1 to n-1 do

Вы объявляете переменную n и не инициализируете ее. Есть несколько вариантов решения:
- объявить n как глобальную
- предавать n в подпрограмму или
- считывать длину массива

Код:

for i:=1 to Length(b) do