Дописать исходный год

[НеСовсемПрогр]

Program ggg;{Решить задачу по обработке записей:Дан список спортивной команды (ФИО, пол, возраст).
Вывести на экран фамилии девушек заданного возраста.}

Type
 TRec = Record
       POL: string [1]; {пол члена команды}
       VOZ: integer; {ФИО спортивной команды}
       FIO:string[40];  {возвраст члена команды}
         end;
       zap=array[1..15] of Trec;
       var rec:zap;
       k:Trec;
       op,voz,i,j,n:integer;
       st:string;
 begin
 writeln('Введите количество спортивной команды');
 readln(voz);
 For i:=1 to voz do
 begin
     Writeln('Введите ФИО-');
     readln(rec[i].fio);
     write('Введите пол');
     readln(rec[i].pol);
    write('Введите 1 возраст');
readln(rec[i].voz);
end;

writeln('Введите заданный возраст')

[Stilet]

 For i:=1 to voz do
  if (rec[i].pol='Красивая девушка') and (rec[i].voz=31 {это для меня}) then
   writeln(rec[i].Fio);

Идею поняв ?