Работа с очередью

Program Alex;
uses crt;
type DatePersonale=record
                 ИМЯ,ФАМИЛИЯ:string[20];
                 ГРУППА:char;
                 СТИПЕНДИЯ:string[50];
                 СРЕДОЦЕНКА:real;
                 АДРЕС:char;
              end;
var     E1,e:DatePersonale;
        R:file of DatePersonale;
        i,n:integer;
Begin
clrscr;
writeln('Введи число стундетов:');
readln(n);
 
for i:=1 to n do
Begin
        writeln('Введи имя стундента:',i);
        readln(E.ИМЯ);
        writeln('Введи фамилию стундета:',i);
        readln(E.ФАМИЛИЯ);
        writeln('Введи группу студента:',i);
        readln(E.ГРУППА);
        writeln('Введи стипендию студента:',i);
        readln(E.СТИПЕНДИЯ);
        writeln('Введи среднюю оценку студента:',i);
        readln(E.СРЕДОЦЕНКА);
        writeln('Введи адресс студента:',i);
        readln(E.АДРЕС);
end;
end;
        while R<>nil do
             Begin
                 m:=0;
                 for i:=1 to R^.info.sem do
                   m:=m+R^.info.media[i];
                 m:=m/R^.info.sem;
                 if ((m>6)and(m<8))then
                 writeln(R^.info.NP:20,m:10:2);
                 R:=R^.prec
             end;
        end;
   readln;
   end;
   
begin
     s:=nil;
     repeat
            writeln('Меню:');
            writeln('I - Вставка элемента:');
            writeln('A - Вывод очереди на экран:');
            writeln('O - Остановка программы:');
            write('Ваш выбор:'):readln(c);
            case c of
                 'I':introduc;
                 'A':Afis;
                 'O':
                 else writeln('Недоступная операция');
            end;
      until c='O':
readln;
End.