Создать файл, содержащий сведения о работниках фирмы

uses crt;
type
   firm = record
      f,d,o: string;
      gr,st,okl: integer;
      end;
var
   a: array[1..100] of firm;
   k: array[1..20] of integer;
   filename, obr: string;
   x,y,i,n,min,q:integer;
   t: text; key: char;
begin
   write('название файла: ');
   readln(filename);
   assign(t,filename);
   rewrite(t);
   repeat
      inc(i);
      with a[i] do begin
         write('фамилия: ');
         readln(f);
         writeln(t,'фамилия: ',f);
         write('должность: ');
         readln(d);
         writeln(t,'должность: ',d);
         write('образование: ');
         readln(o);
         writeln(t,'образование: ',o);
         write('год рождения: ');
         readln(gr);
         writeln(t,'год рождения: ',gr);
         write('стаж: ');
         readln(st);
         writeln(t,'стаж: ',st);
         write('оклад: ');
         readln(okl); k[i]:=okl;
         writeln(t,'оклад: ',okl);
      end;
         writeln('выход? (д/н) ');
         readln(key)
   until upcase(key)='д';
   close(t);
   n:=i;
   obr:='высшее';
   for i:=1 to n do
   with a[i] do
      if o=obr then
   writeln(f);
   writeln('максимальный возраст Х: ');
   readln(x);
   q:=2013-x;
   for i:=1 to n do
   with a[i] do
      if (gr>q) then
         writeln('фамилия: ',f,'; стаж: ',st);
min:=k[1];
for i:=2 to n do
  begin
     if min>k[i] then
       min:=k[i];
  end;
    for i:=1 to n do
   with a[i] do
      if (okl=min) then
         writeln('фамилия: ',f,'; минимальный оклад: ',min);
   readkey
end.