Pascal klaida

program Noname14;
//---------------------------------------------------------
type masyvas1 = record
        vardas: string[15];
        baravykai: integer;
        raudonikiai: integer;
        lepsiai: integer;
        end;
grybautojai = array [1..100] of masyvas1;
//---------------------------------------------------------
var n,d,b,r,l,j,i,grybautojas:integer;
   masyvas:grybautojai;
   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.vardas[i]:=vardas;
  for j:=1 to d do
  begin
   readln(duomenys,b,r,l);
   masyvas.baravykai[j]:=masyvas.baravykai[j] + b;
   masyvas.raudonikiai[j]:=masyvas.raudonikiai[j] + r;
   masyvas.lepsiai[j]:=masyvas.lepsiai[j] + l;
  end;
 end;
 Rezultatai;
 grybautojas:=geriausias_grybautojas(masyvas.baravykai,masyvas.raudonikiai,masyvas.lepsiai);
 writeln(masyvas.vardas[grybautojas]:15, masyvas.baravykai[grybautojas]+masyvas.raudonikiai[grybautojas]+masyvas.lepsiai[grybautojas]:5);
 Readln;
end.

Ką reiškia klaida "Illegal qualifier" ? Man šią klaida meta prie masyvas.vardas:=vardas;

Kam tau reikalingas dar vienas vardas? Geriau būtų tiesiai į masyvą nusiskaityt

Readln(duomenys, masyvas[i].vardas, d)

O klaida tau meta todėl, kad turi būti prie masyvas, o ne prie vardas... masyvas.vardas:=vardas masyvas.vardas:=vardas;

Šitą programą neseniai pats rašiau. Jeigu reikia kodo, parašyk AŽ, arba galiu čia papostint. ;)

Dėkui už atsakymą :)

Jei tik reikės, parašysiu :)