Разработать штатное содержание сотрудников отдела

uses crt; 
type 
 firm = record 
 f,ob,ad,tel,d: string; 
 den,mes,god:integer; 
 end; 
var 
 a,p: array[1..100] of firm; 
 obr,prof,im:string; 
 n,i,k:integer; 
 W:firm; 
 t: file of firm; 
Begin 
write('количество сотрудников='); readln(n); 
assign(t,'firma'); 
rewrite(t); 
for i:=1 to n do 
with a[i] do 
begin 
writeln('фамилия ',i,' сотрудника: '); readln(f); 
writeln('дата рождения: '); readln(den,mes,god); 
writeln('образование: '); readln(ob); 
writeln('адрес: '); readln(ad); 
writeln('телефон: '); readln(tel); 
 writeln('должность: '); readln(d); 
write(t,a[i]); 
end; 
close(t); 
writeln; 
 reset(t); 
 Writeln(' Содержание файла '); 
 writeln('------------------------------------------------------'); 
 i:=0; 
 while not eof(t) do begin 
 inc(i); 
 read(t,w); 
 with w do 
 writeln(i:3,f:10,den:2,mes:3,god:5,ob:6,ad:6,tel:9,d:6); 
 end; 
 close(t); 
 writeln(' Сотрудники с образованием'); 
 writeln('---------------------------------------'); 
 write('Ввести образование - '); readln(obr); 
 assign(t,'firma'); 
reset(t); 
i:=1; k:=0; 
 while not eof(t) do 
begin 
inc(i); 
read(t,p[i]); 
if (obr=p[i].ob) then writeln(p[i].f) else inc(k); 
end; 
if k=n then writeln('сотрудников с ',obr,' нет '); 
 
close(t); 
end.