Ввести несколько записей вида ЧЧ:ММ и отсортировать их по возрастанию - Turbo Pascal

Формулировка задачи:

помогите пожалуйста Нужно создать программу которую вводишь время формате 24 часа с минутами, несколько , и потом отсортировать их по возрастанию. Заранее спасибО!_

Решение задачи: «Ввести несколько записей вида ЧЧ:ММ и отсортировать их по возрастанию»

Листинг программы

const
  n = 3;  {Количество записей. Можно изменить}
 
type
  time = record
    h, m, mm: integer
  end;
 
var
  x: array [1..n] of time;
  i, j: integer;
  tmp: time;
 
begin
  for i := 1 to n do
  begin
    WriteLn(i, ' элемент:');
    repeat
      Write('ЧЧ (0-23): '); ReadLn(x[i].h)
    until x[i].h in [0..23];
    repeat
      Write('ММ (0-59): '); ReadLn(x[i].m)
    until x[i].m in [0..59];
    x[i].mm := x[i].h * 60 + x[i].m
  end;
  WriteLn('Сортировка:');
  for i := 1 to n - 1 do
  begin
    for j := i + 1 to n do
      if x[i].mm > x[j].mm then
      begin
        tmp := x[i];
        x[i] := x[j];
        x[j] := tmp
      end
  end;
  for i := 1 to n do
    WriteLn(x[i].h, ':', x[i].m);
  ReadLn
end.

Объяснение кода листинга программы

В данном коде происходит следующее:

Объявляются переменные: n (количество записей), time (тип записи времени), x (массив записей времени), i (индекс элемента массива), j (индекс сравнения), tmp (временная переменная).
Задается начальное значение для каждой переменной в массиве x. Для каждой записи времени в массиве x, пользователь должен ввести значения часов, минут и секунд.
Проверяется, что введенные значения часов и минут находятся в диапазоне от 0 до 23 и от 0 до 59 соответственно. Если нет, то программа предлагает пользователю ввести корректные значения.
Значение минут (x[i].m) вычисляется как сумма значения часов (x[i].h) умноженного на 60 и значения минут (x[i].m).
Выполняется сортировка массива x по возрастанию значения минут (x[i].mm). Для этого используется алгоритм сортировки пузырьком.
После сортировки выводится отсортированный массив x.
Пользователю предлагается ввести дополнительные данные для добавления новых записей в массив x.
Если пользователь отказывается добавлять новые записи, программа завершается.