Считывание данных из файла в записи

type stud=record
          fam:string[20];
          grp:integer;
          ocn:array[1..3] of byte;
          end;
var f:text;
    s:string;
    c:char;
    a:array[1..20] of stud;
    n,i,j:integer;
begin
assign(f,'1.txt');//файл в папке с программой
reset(f);
n:=0;
s:='';
while not eoln(f)do
 begin
  read(f,c);
  if c<>'-' then s:=s+c
  else
   begin
    inc(n);
    a[n].fam:=copy(s,1,pos('_',s)-1);
    delete(s,1,pos('_',s));
    a[n].grp:=strtoint(copy(s,1,pos('_',s)-1));
    delete(s,1,pos('_',s));
    s:=s+'_';
    for i:=1 to 3 do
     begin
      a[n].ocn[i]:=strtoint(copy(s,1,pos('_',s)-1));
      delete(s,1,pos('_',s));
     end;
     s:='';
   end;
 end;
close(f);
for i:=1 to n do
 begin
  write(a[i].fam,' ',a[i].grp,' ');
  for j:=1 to 3 do write(a[i].ocn[j],' ');
  writeln;
 end;
end.