Как найти ближайшее время относительно заданного, если в массиве находятся записи вида и заданное время вводится с клавиатуры (часы и минуты)?

Time = record
hours, minutes: integer
end;

uses crt;
type Time = record
hours, records: integer;
end;
 
var a:array[1..100]of Time;
h,m,i,n,min:integer;
 
begin
 clrscr;
 write('Введите количество элементов массива -> ');
 readln(N);
 for i:=1  to N do
 begin
  write('Время ',i,' -> ');
  readln(a[i].hours,a[i].minutes);
 end;
 write('Искомое время -> ');
 readln(h,m);
 min:=1;
 for i:=2 to N do if abs( a[i].hours*60+a[i].minutes - (h*60 + m) ) < abs( a[min].hours*60+a[min].minutes - (h*60 + m) ) then min:=i;
 writeln(a[min].hours,' ',a[min].minutes);
 readln;
end.