Описать школьный класс, используя структуру записи (среднее арифметическое дат и месяцев)

uses
  crt;
 
type
  Tsud = record
    secname: string[20];
    initials: string;
    date: integer;
    monthb: integer;
    yearb: integer;
  end;
 
const
  pr: array [1..5] of string[15] = ('familiya', 'inicia', 'datar', 'mesr', 'godr');
 
var
  a: array[1..30] of Tsud;
  b: array[1..100] of byte;
  n, i, z, p, m, sred, isred: integer;
 
begin
  clrscr;
  repeat
    write('Ne bolee 10 studentov n=');
    readln(n);
  until n in [1..10];
  writeln('vvedite svedeniya o  ', n, '  studentah');
  for i := 1 to n do
  begin
    writeln('    student №',  i);
    {write('familiya');
    readln (a[i].secname);
    repeat}
    write('Initialy');
    readln(a[i].initials);
    repeat
      write(' Data(Den)rozdeniya');
      readln(a[i].date);
    until a[i].date in [1..31];
    repeat
      write(' Mesyac Rozdeniya');
      readln(a[i].monthb);
    until a[i].monthb in [1..12];
    repeat
      write('god rozdeniya');
      readln(a[i].yearb);
    until a[i].yearb in [1900..2100];
  end;
  begin
    for  i := 1 to n do
      z := a[i].date div n;
    m := a[i].monthb div n;
    sred := m + z;
    writeln('Otvet=', sred);
    readln;
  end;
end.

uses crt;
type
  Tuch = record
         secname: string[20];
         initials: string;
         date: integer;
         monthb: integer;
         yearb: integer;
         end;
const
  nmax=10;
var
  a: array[1..nmax] of Tuch;
  n, i, z, m:integer;
  dsred, msred: real;
begin
clrscr;
repeat
write('Ne bolee ',nmax,' uchenikov n=');
readln(n);
until n in [1..nmax];
writeln('vvedite svedeniya o ', n, '  uchenikah');
for i := 1 to n do
 begin
  writeln('    Uchenik ь',i);
  with a[i] do
   begin
    write('familiya: '); readln (secname);
    write('Initialy: '); readln(initials);
    repeat
      write(' Data(Den)rozdeniya: ');
      readln(date);
    until date in [1..31];
    repeat
      write(' Mesyac Rozdeniya: ');
      readln(monthb);
    until monthb in [1..12];
    repeat
      write('god rozdeniya: ');
      readln(yearb);
    until (yearb>=1993)and(yearb<=2005);
  end;
 end;
z:=0;m:=0;
for  i := 1 to n do
 begin
   z := z+a[i].date;
   m := m+a[i].monthb;
  end;
dsred := z/n;
msred := m/n;
write('Den rozdenia klassa: ');
if dsred<10 then write('0',dsred:0:0) else write(dsred:0:0);
if msred<10 then write(' 0',msred:0:0) else write(' ',msred:0:0);
readln
end.