Комбинированный тип данных

Program Zadanie;
 uses
   crt;
  Const n=3;
  type
   Predmet = record
    Algebra:Integer;
    Fizra:Integer;
    Istoria:Integer;    
   end;
   
   BAZA = record
    FIO:String[50];
    DataR:String[11];
    Ucheba:Predmet;
   end;
   
  var
   Massiv: array[1..n] of BAZA;
   i:integer;
   proverka:boolean;
  begin
   Proverka:=true;
    For i:=1 to n do
     begin
      Writeln('Vedite Imya dlya ',i,' uchenika');
      Readln(Massiv[i].Fio);
      Writeln('Vedite Data rojdeniya dlya ',i,' uchenika');
      Readln(Massiv[i].DataR);
      Writeln('Vedite oczenku po Algebra  dlya ',i,' uchenika');
      Readln(Massiv[i].Ucheba.Algebra);
      Writeln('Vedite oczenku po Fizra  dlya ',i,' uchenika');
      Readln(Massiv[i].Ucheba.Fizra);
      Writeln('Vedite oczenku po Istoria  dlya ',i,' uchenika');
      Readln(Massiv[i].Ucheba.Istoria);
     end;
     
     For i:=1 to n do
      begin
       If (Massiv[i].Ucheba.Algebra>3) and (Massiv[i].Ucheba.Fizra>3) and (Massiv[i].Ucheba.Istoria>3) then
        Writeln(Massiv[i].Fio,'  ',Massiv[i].DataR);
      end;
  end;