Создать модуль и программу, которая будет тестировать модуль

program Project1;
const
M = 6;
type
  Instrument = (rezetc,freza,sverdlo,zenker,zenkivka,
    rozvertka,cekivka,mitchyk,plashka,protyagka,shever);
  Asortyment = set of Instrument;
var
  Ceh : array[1..M] of Asortyment;
  A : Instrument;
  B : Asortyment;
  i : Integer;
begin
 
  Ceh[1]:=[sverdlo,freza,mitchyk,protyagka];
  Ceh[2]:=[sverdlo,cekivka,freza];
  Ceh[3]:=[sverdlo,mitchyk,zenkivka,zenker,rozvertka];
  Ceh[4]:=[sverdlo,cekivka,plashka,freza];
  Ceh[5]:=[sverdlo,rozvertka,zenker,mitchyk,rezetc];
  Ceh[6]:=[sverdlo,cekivka,zenkivka,shever,mitchyk];
 
  B := Ceh[1];
  for i := 2 to High(Ceh) do B := B * Ceh[i];
Writeln('Інструмент який витратили усі цехи');
  i := 0;
  for A := Low(Instrument) to High(Instrument) do begin
    if A in B then begin
      Inc(i); //Підрахунок кількоті спільних інструментів
      if i > 1 then Write(', ');
      case A of
        rezetc   : Write('rezetc');
        freza    : Write('freza');
        sverdlo  : Write('sverdlo');
        zenker   : Write('zenker');
        zenkivka : Write('zenkivka');
        rozvertka: Write('rozvertka');
        cekivka  : Write('cekivka');
        mitchyk  : Write('mitchyk');
        plashka  : Write('plashka');
        protyagka: Write('protyagka');
        shever   : Write('shever');
      end;
    end;
  end;
  Writeln;
  Writeln('Всього витрачено спільних інструментів: ', i);
  Writeln('Програма закінчена. Для закінчення натисніть Enter.');
  Readln;
end.

uses crt;
 
type
  TStudent = record
    Surname : string[50];
    Kod : byte;
    Year : integer;
    Gender : byte;
    Mark : array [1..8] of byte;
  end;
 
var
  Student : array [1..15] of TStudent;
  i, j, n : integer;
  Sum : real;
 
begin
  Repeat
    Write('Количество студентов: ');
    Readln(n);
  until n in [1..15];
  for i := 1 to n do
    with Student[i] do
      begin
        Write('Фамилия студента №', i, ': ');
        Readln(Surname);
        Repeat
          Write('Группа МТ - ');
          Readln(Kod);
        until Kod in [21..23];
 
          Write('Год рождения: ');
          Readln(Year);
 
        Repeat
          Write('Пол (1 - мужчина; 0 - женщина): ');
          Readln(Gender);
        until Gender in [0..1];
        for j := 1 to 8 do
          begin
            if j <= 4 then
              begin
                Write('Оценка № ', j, ' за первую сессию: ');
                Readln(Mark[j]);
              end else
                    begin
                      Write('Оценка № ', j - 4, ' за вторую сессию: ');
                      Readln(Mark[j]);
                    end;
          end;
      end;
Writeln('Студенты,которые получили средний балл не ниже, чем 4.5:');
for i := 1 to n do
  begin
    Sum := 0;
    for j := 1 to 8 do
      Sum := Sum + Student[i].Mark[j];
    Sum := Sum/8;
    if Sum >= 4.5 then Writeln('Фамилия: ', Student[i].SurName, '; Группа: МТ - ', Student[i].Kod);
  end;
Readln;
end.