Найдите всех преподавателей, которые ведут занятия только у студентов со специализацией "механика" - Turbo Pascal - Ответ 9316560

const
  kol_vo = 100;
type
  group = 1..7;
  course = array [group] of boolean;
  faculty = array [1..5] of course;
  teacher = record
              full_name: string [100];
              specialization: (math, mech);
              {обучаемые преподавателем группы}
              list_of_group: faculty
            end;
  all_teachers = array[1..kol_vo] of teacher;
var
  i, j, k, t: integer;
  a_t: all_teachers;
  no_err, c, f: boolean;
begin
  for i := 1 to kol_vo do with a_t[i] do
    begin
      writeln('Введите информацию о ', i, ' преподавателе:');
      for j := 1 to 5 do
        for k := 1 to 7 do list_of_group[j][k] := false;
      writeln('Введите фамилию, имя и отчество преподавателя:');
      readln(full_name);
      repeat
        write('Введите специализацию преподавателя (1 - математика, 2 - механика): ');
        readln(t);
      until t in [1, 2];
      if t = 1
        then specialization := math
        else specialization := mech;
      writeln('Введите для каждого факультета номера обучаемых групп (1..7) через пробел');
      for j := 1 to 5 do
        begin
          no_err := true;
          repeat
            write('Факультет ', j, ': ');
            while not eoln do
              begin
                read(t);
                no_err := t in [1..7];
                if no_err
                  then list_of_group[j][t] := true
                  else break
              end;
            readln;
            if not no_err then writeln('Ошибка, повторите ввод.')
          until no_err;
        end
    end;
  writeln('Преподаватели, ведущие занятия только у студентов со специализацией "механика":');
  no_err := false;
  for i := 1 to kol_vo do with a_t[i] do
    begin
      c := false;
      for j := 1 to 5 do
        for k := 1 to 6 do c := c or list_of_group[j][k];
      f := false;
      for j := 1 to 5 do f := f or list_of_group[j][7];
      if not c and f
        then begin
          no_err := true;
          if specialization = math
            then write('Математик ')
            else write('Механик ');
          writeln(full_name)
        end
    end;
  if not no_err then writeln('Не найдены.');
  writeln('НАЖМИ <Enter> ДЛЯ ВЫХОДА ИЗ ПРОГРАММЫ И ПОТЕРИ ВСЕХ ДАННЫХ, НЕСЧАСТНЫЙ...');
  readln
end.

  kol_vo = 3;