Составить базу данных о студентах ВУЗа

Program University;
Uses CRT;
Type student = record
       fam    : string[15];
       nm     : string[15];
       nm2    : string[15];
       kr     : integer;
       sp     : string[15];
       cn1    : 0..100;
       cn2    : 0..100;
       bal    : real;
       end;
 
VAR
a : array[1..100] of student;
i, n, k    : integer;
w          : char;
b, max     : real;
 
Procedure Vvod;
Begin
clrscr;
Write('Введите число студентов от 1 до 100 : ');ReadLn(n);
  FOR i:=1 TO n DO
    with a[i] do
      Begin
WriteLn('Запись студента : ',i);
Write('------Фамилия : ');ReadLn(fam);
Write('----------Имя : ');ReadLn(nm);
Write('-----Отчество : ');ReadLn(nm2);
Write('---------Курс : ');ReadLn(kr);
Write('Специальность : ');ReadLn(sp);
Write('----Экзамен 1 : ');ReadLn(cn1);
Write('----Экзамен 2 : ');ReadLn(cn2);bal:=(cn1 + cn2)/2;
WriteLn('-Средний балл : ',bal:3:1);WriteLn;
      End;
WriteLn('   Создание списка студентов завершено !');
End;
 
Procedure Print;
Begin
WriteLn('|---------------------------------------------------------------------|');
WriteLn('|','ФИО   ':15,' | ','Курс':4,' | ','Специальность':15,' | ','Экз 1':5,' | ','Экз 2':5,' | ','Сред.Бал':9,' |');
WriteLn('|---------------------------------------------------------------------|');
  FOR i:=1 TO n DO
    Begin
WriteLn('|',a[i].fam:15,' | ','':4,' | ','':15,' | ','':5,' | ','':5,' | ','':9,' |');
WriteLn('|',a[i].nm:15,' | ',a[i].kr:4,' | ',a[i].sp:15,' | ',a[i].cn1:5,' | ',a[i].cn2:5,' | ',a[i].bal:9:1,' |');
WriteLn('|',a[i].nm2:15,' | ','':4,' | ','':15,' | ','':5,' | ','':5,' | ','':9,' |');
WriteLn('|---------------------------------------------------------------------|');
    End;
End;
 
Procedure Spec;
VAR
sb : string;
Begin
Write('Напишите название специальности : ');ReadLn(sb);
WriteLn('|---------------------------------------------------------------------|');
WriteLn('|','ФИО   ':15,' | ','Курс':4,' | ','Специальность':15,' | ','Экз 1':5,' | ','Экз 2':5,' | ','Сред.Бал':9,' |');
WriteLn('|---------------------------------------------------------------------|');
  Begin
    For i:=1 to n do
      IF a[i].sp=sb then
        Begin
WriteLn('|',a[i].fam:15,' | ','':4,' | ','':15,' | ','':5,' | ','':5,' | ','':9,' |');
WriteLn('|',a[i].nm:15,' | ',a[i].kr:4,' | ',a[i].sp:15,' | ',a[i].cn1:5,' | ',a[i].cn2:5,' | ',a[i].bal:9:1,' |');
WriteLn('|',a[i].nm2:15,' | ','':4,' | ','':15,' | ','':5,' | ','':5,' | ','':9,' |');
WriteLn('|---------------------------------------------------------------------|');
        End;
  End;
End;
 
Procedure maxsb;
Begin
WriteLn('       Студенты у которых наивысший средний балл между 65-85');
WriteLn('|---------------------------------------------------------------------|');
WriteLn('|','ФИО   ':15,' | ','Курс':4,' | ','Специальность':15,' | ','Экз 1':5,' | ','Экз 2':5,' | ','Сред.Бал':9,' |');
WriteLn('|---------------------------------------------------------------------|');
max:=65;
  for i:=1 to n do
    with a[i] do
      Begin
        IF (bal>=65) and (bal<=85) then
          Begin
            If bal > max then
              max:=bal;
          End;
      End;
For i:=1 to n do
  If a[i].bal = max then
    begin
WriteLn('|',a[i].fam:15,' | ','':4,' | ','':15,' | ','':5,' | ','':5,' | ','':9,' |');
WriteLn('|',a[i].nm:15,' | ',a[i].kr:4,' | ',a[i].sp:15,' | ',a[i].cn1:5,' | ',a[i].cn2:5,' | ',a[i].bal:9:1,' |');
WriteLn('|',a[i].nm2:15,' | ','':4,' | ','':15,' | ','':5,' | ','':5,' | ','':9,' |');
WriteLn('|---------------------------------------------------------------------|');
    end;
End;
 
BEGIN
clrscr;
REPEAT
WriteLn('Для ввода студентов в базу нажмите 1');
WriteLn('Для просмотра списка студентов нажмите 2');
WriteLn('Для поиска по специальности нажмите 3');
WriteLn('Показать студентов с максимальным средним баллом нажмите 4');
ReadLn(k);
CASE k of
  1 : Vvod;
  2 : Print;
  3 : Spec;
  4 : maxsb;
else
WriteLn('Вы неверно ввели номер');
end;
WriteLn('Вернутся в Главное Меню ? Y/y/Н/н - да, остальные клавишы отмена ');
ReadLn(w);
until not (w in ['Y','y','Н','н']);
ReadLn;
END.