Cоставить массив записей, который имеет такую структуру: 1.ФИО сотрудника 2.номер отдела 3.должность 4.зарплата. Вывести: 1.созданный массив; 2.записи, которые имеют заданный номер отдела — Pascal(Паскаль)

uses crt;
const n=5;
Type sotrud=record
  fio,dol:string[20];
  otd : integer;
  zar  : real;
end;
 
var 
  a:array[1..n] of sotrud;
  i:byte;
  otd2:integer;
begin
clrscr;
for i:=1 to n do
with a[I] do
begin
writeln('Vvedite FIO');
readln(fio);
writeln('Vvedite dol`jnost`');
readln(dol);
writeln('Vvedite otdel');
readln(otd);
writeln('Vvedite zarplatu');
readln(zar);
end;
writeln('Vvedite nomer otdela');
readln(otd2);
for i:=1 to n do 
with a[I] do 
if otd=otd2 then writeln(fio,' ',dol,' ',zar)
end.