a: record
Year: integer;
Month: byte;
Day: byte;
end;

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;

   Compare := Res;
end;

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

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.

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.

if
   // сначала сравниваем годы. Если они разные - то результат
   // Impl уже будет равным True, соответственно not True = False...
   // Дальше в выражении только And-ы, что бы следующие Impl-ы
   // ни вернули, результат все равно уже False, поэтому здесь выполнение
   // прекратится, и уйдем на Compare := Res
   not Impl (Res, First.Year, Second.Year) and

   // Ага. Мы пришли сюда... Значит, годы одинаковые, предыдущий Impl
   // вернул False, соответственно not Imple = True, и результат общего
   // логического выражения зависит от следующих его частей. Продолжаем
   // по тому же алгоритму, сравниваем месяцы...
   not Impl (Res, First.Month, Second.Month) and
   not Impl (Res, First.Day, Second.Day) then Res := 0;

   // В итоге, если годы, месяцы, и дни - одинаковые, то общее выражение - Истина,
   // в переменную Res заносится 0, и потом этот 0 возвращается как результат
   // функции.

   // А вот если ходя бы одно из полей (неважно какое, год это, месяц, или день)
   // не совпадет - то вычисление тут же прервется, в переменной Res останется то,
   // что было на момент выхода из Impl, обнуляться Res не будет, и функция вернет
   // (+1) или (-1), смотря, какая дата больше

   function Impl (var R : Integer; A, B : Integer) : Boolean;
   begin
      Write('*'); { <--- Вот сюда }
      Impl := True;
      R := A - B;
      if R <> 0 then R := R div Abs( R ) else Impl := False;
   end;

IndexMin := 1;
for i := 2 to array_size do
   if Compare(dat[indexMin], dat[ i ]) < 0 then IndexMin := i;