Цитата
А что это значит?
write(y:0:8);
writeln(' - ',a:0);


это я на экран выводил результаты промежуточных вычислений