Program zzz;
Uses CRT;
Const MAX = 100;

Type pupil = record
    fam: string[10];
    name: string[10];
    dd: integer;
    mm: integer;
    yy: integer;
    class: integer;
    bukva: string[1];
end;

Var
    s_kolvo, i, s_qwe, age_min, age_max, k, l : integer;
    CLASS, VIBOR: Array[1..MAX] of pupil;
        s_tmps, s_dd, s_mm, s_yy: string;
        p:boolean;
        a:pupil;


Begin
ClrScr;
Write('Vvedite kol-vo uchenikov: ');
Readln(s_kolvo);
for i:=1 to s_kolvo do
begin
        ClrScr;
    Writeln('Vvodin dannie uchenika #', i);

        Writeln(' * Vvedite FI cherez probel: ');
        Readln(s_tmps);

        CLASS[i].fam:=copy(s_tmps, 1, pos(' ', s_tmps));
        CLASS[i].name:=copy(s_tmps, pos(' ', s_tmps)+1, length(s_tmps)-pos(' ', s_tmps));

        Writeln(' * Vvedite daty rojdenia (dd.mm.yyyy): ');
        Readln(s_tmps);

        s_dd:= copy(s_tmps, 1, pos('.', s_tmps)-1);
        s_tmps:= copy(s_tmps, pos('.', s_tmps )+1, length(s_tmps)-pos('.', s_tmps));
        s_mm:= copy(s_tmps, 1, pos('.', s_tmps)-1);
        s_yy:= copy(s_tmps, pos('.', s_tmps)+1, length(s_tmps)-pos('.', s_tmps));

        val(s_dd, CLASS[i].dd, s_qwe);
        val(s_mm, CLASS[i].mm, s_qwe);
        val(s_yy, CLASS[i].yy, s_qwe);

        Writeln(' * Vvdedite class v formate 3A ili 5B: ');
        Readln(s_tmps);
        val(s_tmps[1], CLASS[i].class, s_qwe);
        CLASS[i].bukva:=s_tmps[2];

        writeln(CLASS[i].bukva, CLASS[i].class);

end;

ClrScr;

Writeln(' * Vvedite min vozrast: ');
Readln(age_min);

Writeln(' * Vvedite max vozrast: ');
Readln(age_max);


age_min:=2011-age_min;
age_max:=2011-age_max;
s_qwe:=1;

for i:=1 to s_kolvo do
begin
     if ((CLASS[i].yy >= age_max) AND (CLASS[i].yy <= age_min))
     then
     begin
          VIBOR[s_qwe]:=CLASS[i];
          inc(s_qwe);
     end;
end;

s_qwe:=s_qwe-1;
p:=true;
k:=1;
while p do
begin
     l:=0;
     for i:=1 to s_qwe-k do
     begin
          if VIBOR[i].yy > VIBOR[i+1].yy
          then
          begin
               a:=VIBOR[i];
               VIBOR[i]:=VIBOR[i+1];
               VIBOR[i+1]:=a;
               l:=l+1;
          end;
          if l=0
          then
            p:=false;
          k:=k+1;
     end;
end;

for i:=1 to s_qwe do
begin
     Writeln('Uchenik #',i);
     Writeln(' * FIO: ', VIBOR[i].fam, ' ', VIBOR[i].name);
     Writeln(' * DR: ', VIBOR[i].dd, '/', VIBOR[i].mm, '/', VIBOR[i].yy);
     Writeln(' * Klass: ', VIBOR[i].class, VIBOR[i].bukva);
     Writeln;

end;




Readln;
End.