Разбираться было лень, но программа не запускается, т.к. у вас не правильно работает метод гауса.
То бишь, отключите ее и все будет работать, соответственно, разберитесь именно в ней, может чего там с циклами...
ЗЫ
Код:
...
alfa:=1;
// GAUSS(n); // решаем линейную систему уравнений методом Гаусса
// ну а если включить ее, то программа не запуститься...
...