...
var
  choise: char;
begin
  repeat
    { Ввод всех данных о студенте }
    { фактически содержимое процедуры AddStudent }
    
     запрос на продолжение или прекращение ввода типа "y/n" после i-той операции ввода данных
  
  until choise = 'y';

  { Содержимое процедуры QSort }

  { вывод результата }

end.