S: String;

k,H: Byte;

C: Char;

begin

{Инициируем графику} D := Detect;

InitGraph(D,R, ' ') ;

E := GraphResult;

if EOgrOk then begin

WriteLn(GraphErrorMsg(E) ) ;

Halt end;

{Выводим текст процедурой OutString} if RegisterChrFile('trip.chr')>0 then begin

yl := succ(GetMaxY) div 20;

xl := 12*yl;

x2 := Length (tl) ;

y2 := GetMaxY-2*yl;

while xl<y2 do begin

MoveTo(O,xl) ;

for k := 1 to x2 do begin

Angle := Round(30*sin(grad*(k*360/x2)));

OutString(tl[k],1,Angle,0.9,1) ;

end;

inc(xl,yl) end;

MoveTo(2*GetMaxX div 7,GetMaxY-3*yl) ;

for k := 1 to Length(t2) do

OutString(t2[k],1,0,1,1) end;

{Выбираем нужный шрифт} case D of

CGA: H := 8;

EGA: H := 14;

VGA: H := 16;

else

H := 8;

end;

{Готовим имя файла, содержащего шрифт} Str(H,S) ;

S := '8х'+S+'.fnf; {Имя файла} {Открываем файл со шрифтом} Assign(F,S);