я по работникам предприятия смотрела

а если не

with a[i] do
  readln(fin,fam,nam,ocenka);

а

with a[i] do
  read(fin,fam,nam,ocenka);

что получится? (сорри, пишу из универа... тут паскаля нет, проверить не могу)

ниче страшного! Пасиб! Удачи в универе!!!