множества

type имя = record
ФИО: string;
    дата: 1..31;
    месяц: 1..12;
    год: 1990..1996;
    пол: (м,ж);
end;

uses crt;
type
  info = record
    FIO: string;
    d: 1..31;
    m: 1..12;
    y: 1990..1996;
    p: string[1];
    end;
var
 i,n,m: integer;
 st,max: info;
 a:array [1..50] of integer;
 c: char;
begin
 clrscr;
 window(1,1,80,25);
 textcolor(6);
 textbackground(8);
 clrscr;
 write('Введите количество записей: ');
 readln(n);
 for i:=1 to n do
 begin
 clrscr;
 writeln('*** Запись №',i,' ***');
 write('Введите ФИО: ');
 readln(st.FIO);
 write('Введите день рождения: ');
 readln(st.d);
 write('Введите месяц рождения: ');
 readln(st.d);
 write('Введите год рождения: ');
 readln(st.y);
 write('Введите пол: ');
 readln(st.p);
 a[i]:=st;
 end;
 clrscr;
 max:=a[1];
 For i:=2 to n do
   if (a[i].p='m') and ((a[i].d<max.d) and (a[i].m<=max.m) and (a[i].y<=max.y))then
      max:=a[i];
   writeln('Самый старший мужчина: ',max.FIO);
   write('Введите букву: ');
   readln(c);
   for i:=1 to n do
   if a[i].FI[1]=c then
      writeln(a[i].FIO);
 write('Введите месяц: ');
 readln(m);
 for i:=1 to n do
   if a[i].m=m then
   writeln(a[i].FIO);
 readln;
 end.

uses crt;
type
  info = record
    FIO: string;
    d: 1..31;
    m: 1..12;
    y: 1990..1996;
    p: string[1];
    end;
var
 i,n,m: integer;
 st,max: info;
 a:array [1..50] of info;//не integer
 c: char;
begin
 clrscr;
 window(1,1,80,25);
 textcolor(6);
 textbackground(8);
 clrscr;
 write('Введите количество записей: ');
 readln(n);
 for i:=1 to n do
 begin
 clrscr;
 writeln('*** Запись №',i,' ***');
 write('Введите ФИО: ');
 readln(st.FIO);
 write('Введите день рождения: ');
 readln(st.d);
 write('Введите месяц рождения: ');
 readln(st.m);//не d
 write('Введите год рождения: ');
 readln(st.y);
 write('Введите пол: ');
 readln(st.p);
 a[i]:=st;
 end;
 clrscr;
 max:=a[1];
 For i:=2 to n do
   if (a[i].p='m') and ((a[i].d<max.d) and (a[i].m<=max.m) and (a[i].y<=max.y))then
      max:=a[i];
   writeln('Самый старший мужчина: ',max.FIO);
   write('Введите букву: ');
   readln(c);
   for i:=1 to n do
   if a[i].fio[1]=c then
   writeln(a[i].FIO);
 write('Введите месяц: ');
 readln(m);
 for i:=1 to n do
 if a[i].m=m then
 writeln(a[i].FIO);
 readln;
 end.