//Грищук Кирилл
//Тестов Илья
uses crt;
const kol=100;//kolichestvo productov
type zap=record
 naz:string[20];
 datizg:integer;
 srokgod:integer;
 godno:boolean;
 end;
var   k,i,dat,n,j:integer;
a,b:array[1..100] of zap;
tmp:zap;
begin
textcolor(white);
writeln('vved tek daty');
readln(n);
for i:=1 to kol do
begin
writeln('Vvdeite nazvanie');
readln(a[i].naz);
writeln('Vvdeite daty bez tochek izg format xxyyzzzz');
readln(a[i].datizg);
writeln('Vvdeite srok godnosti');
readln(a[i].srokgod);
a[i].godno:=true;
end;
//НЕ ПЕРЕСЧИТЫВАЕТ ГОД и не учитывает високосность
//Пересчет даты для февраля
for i:=1 to kol do
begin
if((a[i].datizg div 1000000 +a[i].srokgod)>28)and(((a[i].datizg div 10000)mod 100)=2)
then
begin
a[i].datizg:=(a[i].datizg div 1000000 +a[i].srokgod-28);
a[i].datizg:=(a[i].datizg mod 100)+(((a[i].datizg div 10000) +1)*100);
end;
//Пересчет даты для месяцев где 30 дней
if((a[i].datizg div 1000000 +a[i].srokgod)>30)and((((a[i].datizg div 10000)mod 100)=4)or(((a[i].datizg div 10000)mod 100)=6) or (((a[i].datizg div 10000)mod 100)=9) or (((a[i].datizg div 10000)mod 100)=11))
then
begin
a[i].datizg:=(a[i].datizg div 1000000 +a[i].srokgod-30);
a[i].datizg:=(a[i].datizg mod 100)+(((a[i].datizg div 10000) +1)*100);
end;
//пересчет где 31 день
if((a[i].datizg div 1000000 +a[i].srokgod)>31)and((((a[i].datizg div 10000)mod 100)=1)or(((a[i].datizg div 10000)mod 100)=3) or (((a[i].datizg div 10000)mod 100)=5) or (((a[i].datizg div 10000)mod 100)=11))
then
begin
a[i].datizg:=(a[i].datizg div 1000000 +a[i].srokgod-31);
a[i].datizg:=(a[i].datizg mod 100)+(((a[i].datizg div 10000) +1)*100);
end;
end;
//OTDELNIISPISOK
j:=1;
for i:=1 to kol do
 if(a[i].datizg)>n then
 begin
 a[i].godno:=false;
 b[j]:=a[i];
  b[j].naz:=a[i].naz;
 inc(j);
 end;
//SORTIROVKA PO PRODAZE
for i:=1 to kol-1 do
        for j := 1 to kol-i do
            if a[j].datizg > a[j+1].datizg then begin
                tmp := a[j];
                a[j].datizg := a[j+1].datizg;
                a[j+1] := tmp
            end;
            //вывод осортированного

for i:=1 to kol do
writeln(a[i]);
writeln();
//ГНИЛь
for i:=1 to kol do
textcolor(red);//KRASNIY CVET
writeln(b[i]);
end.