Pascal, bad numeric format

Ir vėl aš su paskalio klausimais :)

program VBEGrybautojai;
//---------------------------------------------------------
type masyvas1 = record
        vardas: string[15];
        baravykai: integer;
        raudonikiai: integer;
        lepsiai: integer;
        end;
grybautojai = array [1..100] of masyvas1;
//---------------------------------------------------------
var grybautojas:integer;
   masyvas:grybautojai;
   irasymas:text;
//---------------------------------------------------------
procedure duomenys;
var i,j,n,d,b,r,l:integer;
   vardas: string[15];
   duomenys:text;
begin
 assign(duomenys, 'U2.txt');
 reset(duomenys);
 readln(duomenys, n);
 for i:=1 to n do
 begin
  readln(duomenys, vardas, d);
  masyvas[i].vardas:=masyvas[i].vardas+vardas;
  for j:=1 to d do
  begin
   readln(duomenys,b,r,l);
   masyvas[j].baravykai:=masyvas[j].baravykai + b;
   masyvas[j].raudonikiai:=masyvas[j].raudonikiai + r;
   masyvas[j].lepsiai:=masyvas[j].lepsiai + l;
  end;
 end;
   close(duomenys);
end;
//---------------------------------------------------------
procedure rezultatai;
var i:integer;
begin
 for i:=1 to 100 do
 begin
  writeln(masyvas[i].vardas:15, masyvas[i].baravykai:5, masyvas[i].raudonikiai:5, masyvas[i].lepsiai:5);
 end;
end;
//---------------------------------------------------------
function geriausias_grybautojas(masyvas:grybautojai):integer;
var i,max,sum:integer;
begin
 max:=0;
 sum:=0;
 for i:=1 to 100 do
 begin
   sum:=masyvas[i].baravykai+masyvas[i].raudonikiai+masyvas[i].lepsiai;
   if max<sum
   then
   begin
     max:=sum;
     geriausias_grybautojas:=i;
   end;
 end;
end;
//---------------------------------------------------------
begin
 duomenys;
 rezultatai;
 assign(irasymas, 'U2rez.txt');
 reset(irasymas);
 grybautojas:=geriausias_grybautojas(masyvas);
 writeln(irasymas,masyvas[grybautojas].vardas:15, masyvas[grybautojas].baravykai+masyvas[grybautojas].raudonikiai+masyvas[grybautojas].lepsiai:5);
 close(irasymas);
 Readln;
 readln;
end.

Parašiau tokią programą, sukompiliuoja be klaidų, tačiau, programai prasidėjus, metą lentelę "Bad numeric format". Kame reikalas?

imesk uzduoti pazesiu kur problema. ir savo duomenu failiuka ;)