Даны такие сведения о 10 человек: фамилия, пол и дата рождения (дата типа структура). Определить возраст каждого, и вывести на экран фамилии тех, кто достиг пенсионного возраста (мужчины старше 60, женщины — 55). — Pascal(Паскаль)

type baza=record
  data:integer;;
   fam:string[10];
   pol:string;
end;
var a: array [1..10] of baza;
   I: integer;
 
begin
   for I:=1 to 10 do
   begin
      writeln ('введите фамилию');
      readln (a[I].fam);
      writeln ('введите возраст');
      readln (a[I].data);
      writeln ('введите пол');
      readln (a[I].pol);
      end;
for i:=1 to 10 do   begin
if (a[i].data>=60)and (a[i].pol='m')then writeln(a[i].fam);
if (a[i].data>=55)and (a[i].pol='z')then writeln(a[i].fam);
 end;
end.