Тип запись

[McFrey]

собственно само задание:

TYPE TIME=RECORD
H:0..23;
M,S:
END;
VAR T1, T2: TIME;
Описать логическую функцию предшествует ли время T1 времени T2

вот моя реализация на языке Паскаль

program time;

uses
  crt;

type
  vremya = record
    h: 0..23;
    m, s: 0..59;
  end;

function before(a, b: vremya): boolean;
begin
  if (a.h < b.h) or ((a.h = b.h) and (a.m < b.m))
     or ((a.h = b.h) and (a.m = b.m) and (a.s < b.s))
    then 
    before := true else before := false;
end;


var
  t1, t2: vremya;

begin
  clrscr;
  repeat
    writeln('vvedite vremya t1');
    readln(t1.h, t1.m, t1.s);
  until(t1 .h >= 0) and (t1.h <= 23)
  and (t1.m >= 0) and (t1.m <= 59) and (t1.s >= 0) and (t1.s <= 59);
  repeat
    writeln('vvedite vremya t2');
    readln(t2.h, t2.m, t2.s);
  until(t2 .h >= 0) and (t2.h <= 23)
  and (t2.m >= 0) and (t2.m <= 59) and (t2.s >= 0) and (t2.s <= 59);
  clrscr;
  writeln('t1= ', t1.h, ':', t1.m, ':', t1.s);
  writeln('t2= ', t2.h, ':', t2.m, ':', t2.s);
  write(before(t1, t2));
  readln
end.

У меня возник вопрос...когда время равно, то программа выдает значение False...правильно ли это ну с точки зрения того что время должно предшествовать?...может лучше сделать вывод сообщения о том что время равно?

[VektorAB]

Верно выводит,но конечно лучше вывести сообщение, а то преподователь скажет что программист должен рассматривать все варианты.

[McFrey]

VektorAB, спасибо, вот и я так думал...