Программа с применением указателей и очереди

{ Составить программу, в которой предусмотреть ввод исходной информации о
четырех студентах: ФИО, год рождения, год поступление в универ, оценки
за первый семестр: физика,математика, информатика;
Сформировать очередь , в которую записать введенную информацию.
Выводить на экран каждую запись очереди, затем записывать в файл и
удалять из очереди.}
 
uses
  Crt;
const
  n=4;
type
  student=record
    fio:string[64];
    god_rozh:integer;
    god_post:integer;
    ph_ocenka, mat_ocenka, i_ocenka:integer
  end;
 
type
   PComp= ^Comp;
   Comp= record
    sD:student;
    pNext:PComp
   end;
var
  pBegin, pEnd: PComp;
  sC,stud:student;
  i:integer;
 
Procedure CreateQueue(var pBegin,pEnd: PComp; var sC: student);
begin
  New(pBegin);
  pBegin^.pNext:=NIL;
  pBegin^.sD:=sC;
  pEnd:=pBegin
end;
 
Procedure AddQueue(var pEnd:PComp; var sC:student);
var
  pAux: PComp;
begin
  New(pAux);
  pAux^.pNext:=NIL;
  pEnd^.pNext:=pAux;
  pEnd:=pAux;
  pEnd^.sD:=sC
end;
 
Procedure DelQueue(var pBegin: PComp; var sC: student);
begin
  sC:=pBegin^.sD;
  pBegin:=pBegin^.pNext
end;
 
begin
  Clrscr;
  writeln('Введите первую запись: ');
  with sC do
    begin
      write('Введите ФИО: '); readln(fio);
      write('Введите год рождения:    '); readln(god_rozh);
      write('Введите год поступления: '); readln(god_post);
      write('Введите оценку по математике:  '); readln(mat_ocenka);
      write('Введите оценку по физике:      '); readln(ph_ocenka);
      write('Введите оценку по информатике: '); readln(i_ocenka);
    end;
 
  CreateQueue(pBegin,pEnd,sC);
  writeln('Введите еще записей: ',n-1);
  for i:=1 to 3 do
    begin
      with sC do
        begin
          write('Введите ФИО: '); readln(fio);
          write('Введите год рождения:    '); readln(god_rozh);
          write('Введите год поступления: '); readln(god_post);
          write('Введите оценку по математике:  '); readln(mat_ocenka);
          write('Введите оценку по физике:      '); readln(ph_ocenka);
          write('Введите оценку по информатике: '); readln(i_ocenka);
        end;
      AddQueue(pEnd,sC)
    end;
  clrscr;
  writeln('Вывод сформированной очереди: ');
  i:=1;
  repeat
    writeln('Запись № ',i);
    with sC do
      begin
        writeln('ФИО: ',fio);
        writeln('Год рождения:    ',god_rozh);
        writeln('Год поступления: ',god_post);
        writeln('Оценка по математике:  ',mat_ocenka);
        writeln('Оценка по физике:      ',ph_ocenka);
        writeln('Оценка по информатике: ',i_ocenka);
      end;
      inc(i);
    DelQueue(pBegin,sC);
  until pBegin=NIL;
  readln;
end.