народ помогите - с 8 утра сижу над задачей)) вообще не понимаю как сделать - Дан массив записей, содержащих дату (число, месяц, год) и время (час, минута, секунда). Упорядочить этот массив в порядке «возрастания», т.е. от более ранних значений к более поздним.

вот листинг -
type
Data = record
Year: integer;
Month: 1..12;
Day: 1..31;
Hour: 0..11;
Minute: 0..59;
Second: 0..59;
end;

function F(value: Data): longint;
begin

with value do
F := (((((year - 2000) * 12 + month) * 31 + day) * 24 +
hour) * 60 + minute) * 60 + second;

end;

var
a: array [1..20] of data;
indexes: array[1 .. 20] of integer;
i, j, T: integer;

begin
randomize;
for i:=1 to 20 do begin
a[i].Year:=random(random(3))+2006;
a[i].Month:= random(random(11))+1;
a[i].Day:= random(30)+1;
a[i].Hour:= random(11)+1;
a[i].Minute:= random(58)+1;
a[i].Second:= random(58)+1;

indexes[i] := i;
end;


for i := 1 To 20 Do
for j := 20 DownTo i+1 Do
if F(a[indexes[j - 1]]) > F(a[indexes[j]]) then begin
T := indexes[j - 1]; indexes[j - 1] := indexes[j]; indexes[j] := T
end;

writeln('DO':20,'POSLE':45);
for i := 1 to 20 do begin
with a[i] do
write(Day:2, '/', Month:2, '/', Year:4, ' - ',
Hour:2, ':', Minute:2, ':', Second:2, ' ');
with a[indexes[i]] do
write(Day:2, '/', Month:2, '/', Year:4, ' - ',
Hour:2, ':', Minute:2, ':', Second:2);
writeln;
end;
readln;
end.

мне говорят что нужно сделать задачу проще - как проще я уже не понимаю... да и она у меня не сортирует даты в порядке возврастания(( голова кипит по полной))

IIyX, придется перебирать все записи и методом пузырька сортировать.
Вписывать в начало.

DarveL, почему пузырька?
добавлено спустя 1 минуту:
spamboo, 8-10 класс среднеобразовательной не деревенской школы. на худой конец книга или онлайн-туториал

spamboo, tutorial от бурж. "Руководство"

спасибо вам всем за советы...попробую))