type
  Link=^Tlist;
  Tlist=record
      data:integer;{тип елеменетов в очереди}
      next:Link;{указатель на следующий элемент}
      MedB : array [1..NumSemestr] of real;
      Kurs : byte;        //  курс
      Group: byte;
      end;

var
  NumKurs,NumKurs1:integer;
  sr:real;
  c:byte;
  i,j,k:integer;
  pbegin,pend,r:Link;{переменные типа указатель-начало, конец и вспомогательная}
  f:file of Tlist;
  a:array[1..NumStud] of Tlist;
begin
...
 AssignFile(f,'E:\school.txt');
  Rewrite(f);
  new(pbegin);
  pbegin^.next:=nil;
  pbegin^.Kurs:=a[1].Kurs;
  write(f,pbegin^.Kurs);
  pend:=pbegin;
  for i:=2 to NumStud do
  begin
    new(r);
    r^.next:=nil;
    pend^.next:=r;
    pend:=r;
    pend^.Kurs:=a[i].Kurs;
    write(f,pbegin^.Kurs);
  end;
CloseFile(f);