Блок-схема

program pr;
 
type
  student = record // структура студент
    number: integer;        //номер студента
    nameson: string[50];  // имя и фамилия
    yearofbirth: integer;   // дата рождения
    enter: integer; // дата поступления
  end;
  marks = record     // структура оценки    
    phisical: integer;
    math: integer;
    prog: integer;
    history: integer;
  end;
 
var
  i, n: integer;
  stud: array [1..100] of student; // массив студентов (массив структур student)
  ocenki: array [1..100] of marks;
  f: file of student;
 
procedure fill();// процедура ввода анкеты студента и записи её в файл
var
  i: integer;
begin
  reset(f);
  for i := 1 to n do
  begin
    writeln('Введите номер студента');
    readln(stud[i].number);
    writeln('Введите имя и фамилию студента');
    readln(stud[i].nameson);
    writeln('Введите год рождения');
    readln(stud[i].yearofbirth);
    writeln('Введите год поступления');
    readln(stud[i].enter);
    writeln('Введите оценки по физике');
    readln(ocenki[i].phisical);
    writeln('Введите оценки по математике');
    readln(ocenki[i].math);
    writeln('Введите оценки по программированию');
    readln(ocenki[i].prog);
    writeln('Введите оценки по истории');
    readln(ocenki[i].history);
    write(f, stud[i]);
  end;
  close(f);
end;
 
 
procedure show();// процедура читающая созданный файл с анкетами
var
  i: integer;
begin
  reset(f);
  while not eof(f) do 
  begin
    inc(i);
    read(f, stud[i]);
    writeln('Номер студента:',stud[i].number);
    writeln('Имя и фамилию студента:',stud[i].nameson);
    writeln('Год рождения:',stud[i].yearofbirth);
    writeln('Год поступления:',stud[i].enter);
    writeln('Физика:', ocenki[i].phisical);
    writeln('Математика:', ocenki[i].math);
    writeln('Программирование:', ocenki[i].prog);
    writeln('История:', ocenki[i].history);
    writeln;
  end;
  close(f);
  
end;
 
procedure best(s: student);// процедура вывода студентов, у которых все оценки 5
var
  i, b: integer;
  f: file of student;
begin
  for i := 1 to n do
  begin
    if (ocenki[i].phisical = 5) and (ocenki[i].math = 5) and (ocenki[i].prog = 5) and (ocenki[i].history = 5) then 
    begin
      writeln('Все пятёрки у:');
      writeln(stud[i].nameson);
      inc(b);
    end;
  end;
  if(b <> 0) then
    writeln(b, ' отличников')
  else
  begin
    writeln('Нет отличников');
  end;
end;
 
begin
  Assign(f, 'student.txt');
  if FileExists('marsh.dat') then Reset(f) else Rewrite(f);
  writeln('Введите количество студентов:'); 
  readln(n);
  n:=1;
  fill();
  show();
  best(stud[i + 1]);
end.