Не выводится поле char из файла

program dbms;
uses CRT, Graph;
type muzins=record
     name:string[20];
     composite:boolean;
     class:char;
     quantities:integer;
     price:extended;
     end;
var i,Xmax,Ymax:integer;
    f,g:text;
    a:array [1..15] of muzins;
    b:string[15];
    j:word;
    s,q:string;
    ch:char;
    k:byte;
    c:muzins;
    p:pointer;
    size:integer;
 
procedure GraphInit; {Start Graph Mode}
var Driver, Mode, Error: integer;
    begin
    Driver:=Detect;
    InitGraph(Driver,Mode,'C:\langs\bp\bgi');
    Error:=GraphResult;
    if Error <> grOk then
       begin
       Writeln(GraphErrorMsg(Error));
       repeat until KeyPressed;
       Halt;
       end;
    Xmax:=GetMaxX; Ymax:=GetMaxY;
    SetViewPort(0,0,XMax,Ymax,true);
    end;
 
procedure Exterface;
     begin
     SetColor(yellow);
     rectangle(0,0,Xmax,Ymax);
     line(0,30,Xmax,30);
     line(0,400,Xmax,400);
     line(128,0,128,400);
     line(256,0,256,400);
     line(384,0,384,400);
     line(512,0,512,400);
     Setcolor(red);
     SetTextStyle(0,0,0);
     OuttextXY(30,10,'NAME');
     OuttextXY(160,10,'COMPOSITE');
     OuttextXY(300,10,'CLASS');
     OuttextXY(410,10,'QUANTITIES');
     OuttextXY(530,10,'MAX PRICE($)');
     SetColor(yellow);
     rectangle(30,420,150,450);
     rectangle(180,420,300,450);
     rectangle(330,420,450,450);
     rectangle(480,420,600,450);
     SetTextStyle(0,0,2);
     OuttextXY(65,430,'LOAD');
     OuttextXY(210,430,'SORT');
     OuttextXY(350,430,'WRITE');
     OuttextXY(520,430,'END');
     SetColor(red);
     OuttextXY(65,430,'L');
     OuttextXY(210,430,'S');
     OuttextXY(350,430,'W');
     OuttextXY(520,430,'E');
     SetFillStyle(0,black);
     SetColor(yellow);
     end;
 
procedure Display;
    begin
    SetTextStyle(0,0,0);
    SetColor(yellow);
    for i:=1 to 15 do
        begin
        Str(a[i].quantities,s);
        Str(a[i].price:10:2,q);
        OuttextXY(10,30+20*i,a[i].name);
        if a[i].composite=false then OuttextXY(150,30+20*i,'false')
                                else OuttextXY(150,30+20*i,'true');
        OuttextXY(300,30+20*i,a[i].class);
        OutTextXY(430,30+20*i,s);
        OutTextXY(530,30+20*i,q);
        end;
    end;
 
 
procedure Load;
    begin
    SetColor(yellow);
    bar3d(30,320,150,420,0,true);
    line(30,370,150,370);
    SetTextStyle(0,0,0);
    OutTextXY(40,340,'1 - data1.txt');
    OutTextXY(40,390,'2 - data2.txt');
    SetColor(red);
    OutTextXY(40,340,'1');
    OutTextXY(40,390,'2');
    ch:=readkey;
        case ch of
        '1':assign(f,'data1.txt');
        '2':assign(f,'data2.txt')
        end;
    reset(f);
    bar(0,0,xMax,yMax);
    Exterface;
    for i:=1 to 15 do
        begin
        Readln(f,a[i].name,j,b,a[i].class,a[i].quantities,a[i].price);
        if j=0 then a[i].composite:=false
               else a[i].composite:=true;
        end;
    Display;
    end;
 
 
 
procedure sort5;
begin
SetColor(yellow);
bar3d(300,320,400,420,0,true);
Line(300,370,400,370);
SetTextStyle(0,0,2);
OutTextXY(335,335,'UP');
OutTextXY(320,390,'DOWN');
SetColor(red);
OutTextXY(335,335,'U');
OutTextXY(320,390,'D');
ch:=readkey;
if ch='d' then
begin
for i:=1 to 15 do
    begin
    for k:=i+1 to 15 do
        begin
        if a[k].price > a[i].price then
           begin
           c:=a[k];
           a[k]:=a[i];
           a[i]:=c;
           end;
        end;
     end;
end
else
begin
for i:=1 to 15 do
    begin
    for k:=i+1 to 15 do
        begin
        if a[k].price < a[i].price then
           begin
           c:=a[k];
           a[k]:=a[i];
           a[i]:=c;
           end;
        end;
     end;
end;
end;
 
procedure sort4;
begin
SetColor(yellow);
bar3d(300,320,400,420,0,true);
Line(300,370,400,370);
SetTextStyle(0,0,2);
OutTextXY(335,335,'UP');
OutTextXY(320,390,'DOWN');
SetColor(red);
OutTextXY(335,335,'U');
OutTextXY(320,390,'D');
ch:=readkey;
if ch='d' then
begin
for i:=1 to 15 do
    begin
    for k:=i+1 to 15 do
        begin
        if a[k].quantities > a[i].quantities then
           begin
           c:=a[k];
           a[k]:=a[i];
           a[i]:=c;
           end;
        end;
     end;
end
else
begin
for i:=1 to 15 do
    begin
    for k:=i+1 to 15 do
        begin
        if a[k].quantities < a[i].quantities then
           begin
           c:=a[k];
           a[k]:=a[i];
           a[i]:=c;
           end;
        end;
     end;
end;
end;
 
 
procedure sort3;
begin
SetColor(yellow);
bar3d(300,320,400,420,0,true);
Line(300,370,400,370);
SetTextStyle(0,0,2);
OutTextXY(335,335,'UP');
OutTextXY(320,390,'DOWN');
SetColor(red);
OutTextXY(335,335,'U');
OutTextXY(320,390,'D');
ch:=readkey;
if ch='d' then
begin
for i:=1 to 15 do
    begin
    for k:=i+1 to 15 do
        begin
        if a[k].class > a[i].class then
           begin
           c:=a[k];
           a[k]:=a[i];
           a[i]:=c;
           end;
        end;
     end;
end
else
begin
for i:=1 to 15 do
    begin
    for k:=i+1 to 15 do
        begin
        if a[k].class < a[i].class then
           begin
           c:=a[k];
           a[k]:=a[i];
           a[i]:=c;
           end;
        end;
     end;
end;
end;
 
 
procedure sort2;
begin
SetColor(yellow);
bar3d(300,320,400,420,0,true);
Line(300,370,400,370);
SetTextStyle(0,0,2);
OutTextXY(335,335,'UP');
OutTextXY(320,390,'DOWN');
SetColor(red);
OutTextXY(335,335,'U');
OutTextXY(320,390,'D');
ch:=readkey;
if ch='d' then
begin
for i:=1 to 15 do
    begin
    for k:=i+1 to 15 do
        begin
        if a[k].composite > a[i].composite then
           begin
           c:=a[k];
           a[k]:=a[i];
           a[i]:=c;
           end;
        end;
     end;
end
else
begin
for i:=1 to 15 do
    begin
    for k:=i+1 to 15 do
        begin
        if a[k].composite < a[i].composite then
           begin
           c:=a[k];
           a[k]:=a[i];
           a[i]:=c;
           end;
        end;
     end;
end;
end;
 
procedure sort1;
begin
SetColor(yellow);
bar3d(300,320,400,420,0,true);
Line(300,370,400,370);
SetTextStyle(0,0,2);
OutTextXY(335,335,'UP');
OutTextXY(320,390,'DOWN');
SetColor(red);
OutTextXY(335,335,'U');
OutTextXY(320,390,'D');
ch:=readkey;
if ch='d' then
begin
for i:=1 to 15 do
    begin
    for k:=i+1 to 15 do
        begin
        if a[k].name < a[i].name then
           begin
           c:=a[k];
           a[k]:=a[i];
           a[i]:=c;
           end;
        end;
     end;
end
else
begin
for i:=1 to 15 do
    begin
    for k:=i+1 to 15 do
        begin
        if a[k].name < a[i].name then
           begin
           c:=a[k];
           a[k]:=a[i];
           a[i]:=c;
           end;
        end;
     end;
end;
end;
 
 
procedure Sort;
begin
SetFillStyle(0,black);
Bar3d(180,320,300,420,0,true);
SetTextStyle(0,0,0);
Line(180,340,300,340);
Line(180,360,300,360);
Line(180,380,300,380);
Line(180,400,300,400);
OutTextXY(185,325,'1.by name');
OutTextXY(185,345,'2.by composite');
OutTextXY(185,365,'3.by class');
OutTextXY(185,385,'4.by quantities');
OutTextXY(185,405,'5.by max price');
SetColor(red);
OutTextXY(185,325,'1.');
OutTextXY(185,345,'2.');
OutTextXY(185,365,'3.');
OutTextXY(185,385,'4.');
OutTextXY(185,405,'5.');
ch:=readkey;
    case ch of
    '1':sort1;
    '2':sort2;
    '3':sort3;
    '4':sort4;
    '5':sort5;
    end;
Bar(0,0,xMax,yMax);
Exterface;
Display
end;
 
 
 
 
procedure Write;
var
   c:byte;
   d:string[15];
begin
Assign(g,'data2.txt');
Rewrite(g);
for i:=1 to 15 do
    begin
    if a[i].composite=true then c:=1
    else c:=0;
    d:='               ';
    Writeln(g,a[i].name,c,b,a[i].class,d,a[i].quantities:5,d,a[i].price:10:2);
    end;
close(g);
OutTextXY(360,455,'done');
rectangle(330,450,450,470);
end;
 
procedure ProcessKeys;
begin
ch:=readkey;
    case ch of
    'l':load;
    's':sort;
    'w':write;
    'e':halt;
    end;
end;
 
 
 
 
begin
GraphInit;
Exterface;
while true do ProcessKeys;
end.