Организовать базу данных для бухгалтерии предприятия такого вида: табельный номер сотрудника;ФИО сотрудника,занимаемая должность,информация про зарплату за полгода. База данных позволяет выдавать на экран информацию про средний заработок нужного сотрудника(зарплата за полгода/6) — Pascal(Паскаль)

type TEmpl = record
  num: integer;
  FIO, dep: string;
  wage: real;
end;
 
var Empls: array [1..100] of TEmpl;
    n, num, i: integer;
begin
 write('Количество сотрудников? ');
 readln(n);
 while n>100 do
  begin
    writeln('Ошибка. Повторите ввод.');
    readln(n)
  end;
 for i := 1 to n do
   begin
     writeln('Номер: ');
     readln(Empls[i].num);
     writeln('ФИО: ');
     readln(Empls[i].FIO);
     writeln('Должность: ');
     readln(Empls[i].dep);
     writeln('Зарплата: ');
     readln(Empls[i].wage)
   end;
  writeln('Введите номер сотрудника: ');
  readln(num);
  for i := 1 to n do
    if Empls[i].num = num then writeln('Ср. зарплата - ', Empls[i].wage/6:3:1);
   readln
 end.