Внести в задачу пару условий,пожалуйста помогите(Pascal-record)тип записи...

[Andrux]

Доброго времени суток, пожалуйста помогите
внести в задачу, условия такого типа;

Найти запись удовлетворявшую след. условия: среди жанра игр "стратегия"
вышедшие в 2009 году и которые имеют минимальные системные требования.

Program AnzStr;
Uses crt;
TYPE
   Date = Record
   Month : 1..12;
   Day : 1..31;
   Year : 2000..2009;
     end;
   Person = Record
   Nazvanie : string;
   Vishla : (Net,Da);
   SysTreb : string;
   Janr: string;
   Datavix: date;      
     end;
       var i:person;
           s:byte;
         begin
           with i do
         begin
         clrscr;
         textcolor(Green);
           write('Nazvanie=');readln(Nazvanie);
           write('Janr=');readln(Janr);
           write('Vishla li Igra (0-Net, 1-Da)');readln(s);
           if s=0 then vishla:=Net else vishla:=Da;
           write('SysTreb=');readln(SysTreb);
           WITH Datavix do
               begin
                 write('Year=');readln(Year);
                 write('Month=');readln(Month);
                 write('Day=');readln(Day);
               end;
              end;
               writeln('--------------------------------');
               writeln(' ');
               writeln('--------------------------------');
                WITH i do
                  begin
                    writeln('Nazvanie=',Nazvanie);
                    writeln('Janr=',Janr);
                    writeln('Vishla=');if vishla=Net then writeln('Net') else writeln('Da');
                    writeln('Systreb=',Systreb);
                    writeln('Datavix:');
                      WITH Datavix do
                      begin
                        writeln('Year=',Year);
                        writeln('Month=',Month);
                        writeln('Day=',Day);
                        end;
                          readln
                       end;
                       end.

Заранее благодарю, за помощь в добавлении записей!

[v.dmitry]

Компилятора нет, так что синтаксис и работоспособность проверь

Program AnzStr;
Uses crt;
TYPE
Date = Record
Month : 1..12;
Day : 1..31;
Year : 2000..2009;
end;

Person = Record
Nazvanie : string;
Vishla : (Net,Da);
SysTreb : string;
Janr: string;
Datavix: date;
end;
const
n=20;
var
db array[1..n] of person;
i,j,s,min: byte;

BEGIN
writeln('KOl-vo zapisey=');
readln(j);
i:=1;
while(i<=j) do
Begin
write('Nazvanie=');
readln(a[i].Nazvanie);
write('Janr=');
readln(a[i].Janr);
write('Vishla li Igra (0-Net, 1-Da)');
readln(s);
if s=0 then a[i].vishla:=Net else a[i].vishla:=Da;
write('SysTreb=');
readln(a[i].SysTreb);
end;
i:=2;
min=1;
while (i<=j) do
if (a[i].Janr='Strategy') and (a[i].Vishla=1) and (a[i].Systreb<=a[min].Systreb) then min=i;

// просто выводи эл-т массива с номером min;

END;

[Andrux]

v.dmitry
немного не по моей теме... не стал проверять на работоспособность.

вот что получилось на данный момент:

Program AnzStr;
Uses crt;

TYPE
   TGenre = (comedy, strategy, action, horror, drame);
   YesNo = (Net, Da);

   Date = Record
     Month : 1..12;
     Day : 1..31;
     Year : 2000..2009;
   end;
   Person = Record
     Nazvanie : string;
     Vishla : YesNo;
     SysTreb : string;
     Janr: TGenre;
     Datavix: date;
   end;

const
  Titles: array[Tgenre] of string[8] =
    ('comedy', 'strategy', 'action', 'horror', 'drame');
  strYN: array[YesNo] of string[3] = ('Net', 'Da');

  size = 10;

var
  arr: array[1 .. size] of Person;
  i, s: byte;
  G: TGenre;

begin
  clrscr;
  textcolor(Green);

  for i := 1 to size do begin
    writeln('Record #', i);

    with arr[i] do begin
      write('Nazvanie='); readln(Nazvanie);

      write('genre : (');
      for G := low(TGenre) to high(TGenre) do
        write(ord(G), '=' + Titles[G] + ' ');
      write(')');
      repeat readln(s); until s in [0 .. ord(high(TGenre))];
      Janr := TGenre(s);

      write('Vishla li Igra (0-Net, 1-Da)'); readln(s);
      vishla := YesNo(s);

      write('SysTreb='); readln(SysTreb);
      WITH Datavix do begin
        write('Year=');readln(Year);
        write('Month=');readln(Month);
        write('Day=');readln(Day);
      end;
    end;
  end;

  writeln('--------------------------------');
  writeln;
  writeln('--------------------------------');
  for i := 1 to size do
    if arr[i].Janr = strategy then
      WITH arr[i] do begin
        writeln('Nazvanie=',Nazvanie);
        writeln('Janr=',Titles[Janr]);
        writeln('Vishla=', strYN[vishla]);
        writeln('Systreb=',Systreb);
        writeln('Datavix:');
        WITH Datavix do begin
          writeln('Year=',Year);
          writeln('Month=',Month);
          writeln('Day=',Day);
        end;
        readln;
      end;

end.