Определить фамилию самого младшего по возрасту человека среди военнообязанных

uses crt;
const n=16;
      line='----------------------------------------------';
      shap='|   Фамилия   | Возраст |   Военная служба   |';
 
type firma = record;
     fam:  string[10];
     age:  byte;
     vob:  char;
     end;
 
var f:array [1..n] of firma;
    i,amin,av,an,imin,iav,ian:byte;
 
begin
writeln('Внесите данные о сотрудниках: ');
amin:=120;
av:=0;
an:=0;
for i:=1 to n do
    with f[i] do
         begin
         write('Фамилия ',i,' сотрудника: '); readln(fam);
         write('Возраст: '); readln(age);
         write('Является военнообязанным (д - да, н - нет): '); readln(vob);
         if age<amin then
            begin
            amin:=age; imin:=i;
            end;
         if (vob='д') and (age>av) then
            begin
            av:=age;
            iav:=i;
            end;
         if (vob='н') and (age>an) then
            begin
            an:=age;
            ian:=i;
            end;
         end;
clrscr;
writeln('             Данные о сотрудниках');
writeln(line);
writeln(shap);
writeln(line);
for i:=1 to n do
    with f[i] do
    begin
    write('|',fam:11,'|':3,age:6,'|':4);
    if vob='' then writeln('военнообязанный':18,'|':3)
       else writeln('невоеннообязанный':18,'|':3);
    end;
writeln(line);
writeln;
writeln('Самый младший (',amin,' год(а/лет)) сотрудник - ',f[imin].fam);
writeln('Самый старший среди военнообязанных (',av,' год(а/лет)) сотрудник - ',f[iav].fam);
writeln('Самый старший среди невоеннообязанных (',an,' год(а/лет)) сотрудник - ',f[ian].fam);
end.