Не меняются шрифты по команде settextstyle(a,b,c), в графическом режиме.
Сами шрифты вроде есть, в чем проблема, подскажите...

Это те которые *.CHR?
Ежели те дык они вообще выводятся?

Выводятся, только стандартного размера 8*8, какое значение не ставь все одно и то же 8-(
Помогите плиз...

Это самое, дык выводятся именно эти шрифты (e.g. Triplexs, Gothic & so on)?? только 8х8, просто если он не может найти их, то выводит шрифтом по умлч.

1. Шрифты должны лежать, там же где и Ваша программа.
2. 1-й параметр - фонт
3. Попробуйте отловить ошибку
...
 SetTextStyle(a,b,c);
 ErrorCode := GraphResult;   { Check for errors }
 if ErrorCode <> grOk then
 begin
   Writeln('Graphics error:');
   Writeln(GraphErrorMsg(ErrorCode));
...

Отловил ошибку по совету Ozzy, действительно не находит файл шрифта.
положил этот файл где лежит сама программа, не помогло , попробовал положить в другие
папку тоже не выходит.
Файл называется trip.chr,
вызываю его так settextstyle(triplexfont,horizdir,20);

Ну тада продебагь эту процедурку... или запусти трейсер на открытие файла

Тогда может быть битый фонт?