Вывести анкетные данные студентов, получивших 5 по информатике - Turbo Pascal - Ответ 1465580

program prog;
uses crt;
const
   Nmax=7;
   n=4;
type st=record
      name:string;
      data:string;
      god_post:integer;
      kypc:integer;
      score:array [1..n] of integer;
     end;
     Tmas=array [1..Nmax] of st;
var
  m:Tmas;
  i,j:byte;
  k:boolean;
  ch:char;
procedure find;
begin
  ClrScr;
  writeln('Ученики получившие 5 по информатике:');
  writeln;
  for i:=1 to Nmax do
    if m[i].score[4]=5 then begin
       k:=true;
       writeln('Ф.И.О: ',m[i].name);
       writeln('Дата рождения: ', m[i].data);
       writeln('Дата поступления: ', m[i].god_post);
       writeln('Номер курса: ', m[i].kypc);
       writeln('Оценки за семестр: ');
       for j:=1 to n do
         case j of
           1:writeln('Математика: ',m[i].score[j]);
           2:writeln('Русский язык: ',m[i].score[j]);
           3:writeln('Физика: ',m[i].score[j]);
           4:writeln('Информатика: ',m[i].score[j]);
         end;
    end;
    if k=false then writeln('Таких нет!');
end;
procedure enter;
begin
  for i:=1 to Nmax do begin
    ClrScr;
    write('Введите Ф.И.О ученика: ');
    readln(m[i].name);
    write('Введите год рождения ученика: ');
    readln(m[i].data);
    write('Введите год поступления ученика в колледж: ');
    readln(m[i].god_post);
    write('Введите номер курса ученика: ');
    readln(m[i].kypc);
    writeln('Оценки за семестр:');
    for j:=1 to n do begin
      case j of
        1:write('Математика: ');
        2:write('Русский язык: ');
        3:write('Физика: ');
        4:write('Информатика: ');
      end;
      readln(m[i].score[j]);
      if not (m[i].score[j] in [1..5]) then begin
        writeln('Ошибка, повторите ввод');
        j:=j-1;
      end;
    end;
  end;
end;
BEGIN
  writeln('===========================');
  writeln('1. Ввод данных    ');
  writeln('2. Поиск (5 по информатике)');
  writeln('===========================');
  ch:=readkey;
  case ch of
    '1':enter;
    '2':find;
  end;
  readln;
END.