Описать логическую функцию before (t1,t2) для проверки, предшествует ли время t1 времени t2

Program time;
uses crt;
type
    vremya=record
    chas: 0..23;
    min,sec: 0..59;
    end;
var t1,t2:vremya;
    b:boolean;
begin
     clrscr;
     writeln('vvedite vremya t1');
     read(t1.chas);
     writeln(':');
     read(t1.min);
     writeln(':');
     read(t1.sec);
     writeln('vvedite vremya t2');
     read(t2.chas);
     writeln(':');
     read(t2.min);
     writeln(':');
     read(t2.sec);
 
     if (t1.chas<=23) then
     begin
          if t1.min<=59 then
          begin
               if t1.sec<=59 then
               begin
                    if t2.chas<=23 then
                    begin
                         if t2.min<=59 then
                         begin
                              if t2.sec<=59 then
                              begin
                                   if t1.chas<t2.chas then
                                   b:=true
                                   else
                                   begin
                                        if t1.min<t2.min then
                                        b:=true
                                        else
                                        begin
                                            if t1.sec<t2.sec then
                                             b:=true
                                             else
                                             b:=false;
                                        end;
                                   end;
                                   writeln(b);
                              end
                              else
                              writeln('Oshibka');
                         end
                         else
                         writeln('Oshibka');
                    end
                    else
                    writeln('Oshibka');
               end
               else
               writeln('Oshibka');
          end
          else
          writeln('Oshibka');
     end
     else
     begin
          writeln('Oshibka');
     end;
readln;
readln;
end.

Program time;
uses crt;
type
vremya=record
       chas: 0..23;
       min,sec: 0..59;
      end;
function before(a,b:vremya):boolean;
begin
if (a.chas<b.chas) or((a.chas=b.chas)and(a.min<b.min))
   or((a.chas=b.chas)and(a.min=b.min)and(a.sec<b.sec))
   then before:=true else before:=false;
end;
procedure Vyvod_Vrem(var a:vremya);
begin
write(a.chas,':');
if a.min<10 then write('0',a.min,':') else write(a.min,':');
if a.sec<10 then write('0',a.sec) else write(a.sec);
writeln;
end;
var
t1,t2:vremya;
begin
clrscr;
repeat
writeln('vvedite vremya t1');
readln(t1.chas,t1.min,t1.sec);
until(t1.chas>=0)and(t1.chas<=23)
and(t1.min>=0)and(t1.min<=59)and(t1.sec>=0)and(t1.sec<=59);
repeat
writeln('vvedite vremya t2');
readln(t2.chas,t2.min,t2.sec);
until(t2.chas>=0)and(t2.chas<=23)
and(t2.min>=0)and(t2.min<=59)and(t2.sec>=0)and(t2.sec<=59);
clrscr;
write('t1=  ');
Vyvod_Vrem(t1);
write('t2=  ');
Vyvod_Vrem(t2);
write(before(t1,t2));
readln
end.