Сортировка записей, сабж Опции

[Ananas]

Задача такая: файл имеет структуру
время(5 позиций), пробел, аэродром посадки(3 позиции)
11:35 АП1
23:08 АП3
15:30 АП2
и т.д.
Так вот, всего в файле 10 записей. Надо считать каждую строку в отдельный элемент массива и отсортировать по убыванию времени методом пузырька. После этого вывести отсортированную таблицу (именно таблицу, с использованием символов аски кода). Есть такая идея, только не знаю как сделать: считываем строки в массив записей. При сортировке во времени удаляем двоеточие и оставшееся время преобразуем в число. Подскажите как

[volvo]

Если файл у тебя текстовый, и состоит из вот таких строк, как ты описываешь, то достаточно будет записать данные в массив ar: array[1 .. 10] of string;, и сделать:

  For i := 1 To n Do
    For j := n DownTo i+1 Do
      If copy(ar[j - 1], 1, 5) > copy(ar[j], 1, 5) Then Begin { сравниваем только ВРЕМЯ - первые 5 позиций строки }
        T := ar[j - 1]; ar[j - 1] := ar[j]; ar[j] := T
      End