[EvroStandart]

По одной строке добавлять в программу и компилировать не пробовал?
Тогда сразу будет видно с добавлением какой строки перестаёт работать.

Var a,b,d,c,e,f,:integer;
запятая лишняя