Тип данных для сравнения даты, какой лучше использовать? Опции

[Евгений]

Решаю задание по записям, все вроде понятно, но есть один вопрос. Какой тип данных(и какой формат ДД.ММ.ГГ или еще как?) лучше использовать для нахождения минимальной(максимальной) даты?

[Евгений]

Пока набросал вот это:

program data;
type data_r= record;
    god: integer;
    mes: 1..12;
    chislo: 1..31;
  end;

  Var
    dat: array [1..3] of data_r;
    Mindata: byte;
    i: byte;

    begin
      for i:= 1 to 3 do
       with dat [i] do

      begin
       writeln('введите год  ');
       readln(god);
       writeln('введите месяц(1..12)  ');
       readln(mes);
       writeln('введите число(1..31)  ');
       readln(chislo);
      end;
        Mindata:=1;
        for i:= 2 to 3 do
         begin

           if  dat[i].god < dat[mindata].god then
               Mindata:= i
            else
             if dat[i].mes < dat[mindata].mes then
                Mindata:= i
             else
                if dat[i].chislo < dat[mindata].chislo then
                   Mindata:= i;
         end;
      writeln('минимальная дата ',dat[Mindata].god,'.',dat[mindata].mes,'.',dat[Mindata].chislo);
     readln;

    end.

Не очень красиво. но работает
volvo по вашему решению есть несколько вопросов:

type
   RData = record
      Day, Month, Year : Integer;
   end;

{$B-}//что это?//
function Compare (First, Second : RData) : Integer;//описание функций понятно//

   function Impl (var R : Integer; A, B : Integer) : Boolean;
   begin
      Impl := True;
      R := A - B;

      if R <> 0 then R := R div Abs( R ) else Impl := False;
   end;

var
   Res : Integer;
begin
   if not Impl (Res, First.Year, Second.Year) and
      not Impl (Res, First.Month, Second.Month) and
      not Impl (Res, First.Day, Second.Day) then Res := 0;//здесь как я понимаю, если все функции не фальш,т.е Res=0, то результат =0 ? //

   Compare := Res;//а вот здесь не пойму, почему результат равен 1? Получается в превой функции Res=1, а во второй и третьей -1?//
end;

const
  F : RData = (Day : 11; Month : 01; Year : 2011);
  S : RData = (Day : 12; Month : 11; Year : 2010);
begin
  writeln (Compare (F, S))
end.

Вы меня извините возможно за глупые вопросы.
P.S: Интересно а как все это реализовать если дат будет например 10 или больше?