Вычислить средний балл группы и вывести список студентов, имеющих средний балл ниже среднего балла группы

const
  n = 7;
type
  person = record
    name : string[20];
    birth_date : integer;
    entry_date : integer;
    subj1 : byte;
    subj2 : byte;
    subj3 : byte
  end;
var
  db : array[1..n] of person;
  i, s : integer;
  a : real; {средний балл}
begin
  {ввод данных: закомментировано, если используем константный ввод}
  {for i := 1 to n do
  begin
    write('введите фамилию ', i, ' студента: '); readln(db[i].name);
    write('введите год рождения ', i, ' студента: '); readln(db[i].birth_date);
    write('введите год поступления ', i, ' студента: '); readln(db[i].entry_date);
    write('введите оценку по Физике ', i, ' студента: '); readln(db[i].subj1);
    write('введите оценку по Химии ', i, ' студента: '); readln(db[i].subj2);
    write('введите оценку по Алгебре ', i, ' студента: '); readln(db[i].subj3)    
  end;}
  {константный ввод: закоментировано, если используется ввод с клавиатуры}
  db[1].name := 'Иванов'; db[1].birth_date := 1984; db[1].entry_date := 2003; db[1].subj1 := 5; db[1].subj2 := 4; db[1].subj3 := 3;
  db[2].name := 'Петров'; db[2].birth_date := 1985; db[2].entry_date := 2003; db[2].subj1 := 5; db[2].subj2 := 3; db[2].subj3 := 4;
  db[3].name := 'Сидоров'; db[3].birth_date := 1983; db[3].entry_date := 2003; db[3].subj1 := 5; db[3].subj2 := 3; db[3].subj3 := 4;
  db[4].name := 'Федоров'; db[4].birth_date := 1984; db[4].entry_date := 2004; db[4].subj1 := 3; db[4].subj2 := 3; db[4].subj3 := 3;
  db[5].name := 'Сергеев'; db[5].birth_date := 1986; db[5].entry_date := 2004; db[5].subj1 := 4; db[5].subj2 := 3; db[5].subj3 := 5;
  db[6].name := 'Андреев'; db[6].birth_date := 1986; db[6].entry_date := 2003; db[6].subj1 := 3; db[6].subj2 := 4; db[6].subj3 := 5;
  db[7].name := 'Яковлев'; db[7].birth_date := 1985; db[7].entry_date := 2003; db[7].subj1 := 3; db[7].subj2 := 4; db[7].subj3 := 5;
  {вывод всех}
  writeln('               Фамилия  Ржд   Пост  Физ Хим Алг');
  writeln('-----------------------------------------------');
  for i := 1 to n do
  begin
    write(db[i].name:22, db[i].birth_date:6, db[i].entry_date:6, db[i].subj1:4, db[i].subj2:4, db[i].subj3:4);
    writeln
  end;
  {вычисление сред. балла}
  s := 0;
  for i := 1 to n do s := s + db[i].subj1 + db[i].subj2 + db[1].subj3;
  a := s / 3 / n;
  writeln('-----------------------------------------------');
  writeln('средний балл группы: ', a:0:4);
  {вывод тех кто ниже среднего}
  writeln('               Фамилия  Ржд   Пост  Физ Хим Алг');
  writeln('-----------------------------------------------');
  for i := 1 to n do
    if ((db[i].subj1 + db[i].subj2 + db[1].subj3) / 3) < a then
    begin
      write(db[i].name:22, db[i].birth_date:6, db[i].entry_date:6, db[i].subj1:4, db[i].subj2:4, db[i].subj3:4);
      writeln
    end;
  readln
end.