Определить количество кубиков каждого из цветов и их суммарный объем

program Files;
type
    tsvet = (red, yellow, blue, green);
    material = (wooden, metal, cardboard);
    kub=record
       raz : integer;
       ts : tsvet;
       mat : material;
    end;
var
   f: file of kub;
   p: kub;
   sr,sy,sb,sg,v,vr,vy,vb,vg: integer;
begin
assign(f, 'Kub.dat');
reset(f);
sr:=0; sy:=0; sb:=0; sg:=0; v:=0; vr:=0; vy:=0; vb:=0; vg:=0;
     while not eof(f) do
        begin
        read(f,p);
        case p.ts of
        red : begin
                vr:=p.raz;
                sr:=sr+1;
               end;
        yellow : begin
                  vy:=p.raz;
                  sy:=sy+1;
                  end;
        blue :  begin
                 vb:=p.raz;
                 sb:=sb+1;
                 end;
        green : begin
                vg:=p.raz;
                sg:=sg+1;
                  end;
        else writeln ('Error')
        end;
        end;
     writeln ('красных - ',sr);
     writeln ('желтых - ',sy);
     writeln ('синих - ',sb);
     writeln ('зеленых - ',sg);
           
     v:=sr*vr*vr*vr+sy*vy*vy*vy+sb*vb*vb*vb+sg*vg*vg*vg;
     writeln ('объем - ',v);
close(f);
end.

program zap;                              
type
    tsvet = (red, yellow, blue, green);
    material = (wooden, metal, cardboard);
    kub=record
       raz : integer;
       ts : tsvet;
       mat : material;
    end;
var
   f: file of kub;
   p: kub;
begin
assign(f, 'Kub.dat');
if FileExists('Kub.dat')
   then  reset(f)
   else Rewrite(f);
Seek(f,filesize(f));
 P.raz:=3;
 P.ts:= yellow ;
 P.mat:= wooden ;
write(f,p);
close(f);
end.