Составить базу данных об учащихся,предусмотрев поля

uses crt;
const n=2;
type 
spisok2=record
      pred:string[10];
      o:1..5
      end; 
spisok1=record
     fio:string[10];
     kol:integer;
     b:array[1..10] of spisok2;
       end;
       mass=array[1..2] of spisok1;
Var s:mass;
i,j:integer;
p:string[100];
k:boolean;
 Procedure Vvod(var a:mass);
 var i,j:integer;  begin
  for i:=1 to n do
   begin
    writeln('введите сведения о ',i,' студенте');
    writeln('введите фамилию, имя и отчество');
    readln(a[i].fio);
    writeln('введите количество предметов');
    readln(a[i].kol);
     for j:=1 to a[i].kol do
     begin
      writeln('введите предмет');
      readln(a[i].b[j].pred);
      writeln('введите оценку от 1 до 5');
      readln(a[i].b[j].o);
     end;
    end;
  writeln('ввод закончен');
  writeln;
  end;
 Procedure Print(var a:mass);
  var i,j:integer;
  begin
   Writeln('Номер  /  ФИО  /  Предмет  /  Оценка  ');
   Writeln('----------------------------------------------');
   for i:=1 to 2 do
    begin
    for j:=1 to a[i].kol do
     begin
      writeln(i,') /  ',a[i].fio, '  /  ' ,a[i].b[j].pred, '  /  ' ,a[i].b[j].o, ' ;');
      end;
      writeln('--');
     end;
      Writeln('---------------------------');
   end;
 procedure Ochenka(var a:mass);
 var i,j:integer;
 k:boolean;
 begin
 writeln('Хорошисты и Отличники');
   for i:=1 to n do
   k:=false;
    begin
     j:=1;
     while j<=a[i].kol do
      begin
       if ((a[i].b[j].o)=4)or((a[i].b[j].o)=5) then
        k:=true;
       if k=false then
        write
       else
        k:=true;
        j:=j+1
      end;
     writeln (i,')   ',a[i].fio);
    end;
   Writeln('---------------------------');
  writeln;
 end;
 procedure Predmet(var a:mass);
  var i,j:integer;
  begin
   write('Учащиеся выбравшие: ');
   readln(p);
   for i:=1 to n do
    begin
     for j:=1 to a[i].kol do
      begin
       if ((a[i].b[j].pred)=p)  then
       writeln (i,')   ',a[i].fio);
      end;
     Writeln('---------------------------');
     writeln;
    end;
  end;
begin
 clrscr;
 Vvod(s);
 Print(s);
 Ochenka(s);
 Predmet(s);
end.