![mega_chok.gif](style_emoticons/default/mega_chok.gif)
условие:
дан массив, содержащий: год, месяц, число, час, минуту и секунду
упорядочить массив в порядке возрастания от более ранних к более поздним
впринципе без проблем заполню, но с сортировкой не лады...если сеять "пузырьком" по году, то отсортируется так, а когда начнётся сортировка по месяцу, то всё переменится...в общем как дальше делать
![YYY.gif](style_emoticons/default/YYY.gif)
program MJIuH;
{$APPTYPE CONSOLE}
uses
SysUtils;
type data=record
god:integer;
mesac:byte;
chislo:byte;
chas:byte;
min:byte;
sek:byte;
end;
var
massiv:array[1..100] of data;
i,j:byte;
n,t:integer;
begin
randomize;
writeln('vvedite kol-vo zapisei');
readln(n);
for I := 1 to n do
begin
write('vvedite god');
readln(massiv[i].god);
write('vvedite mesac');
readln(massiv[i].mesac);
write('vvedite chislo');
readln(massiv[i].chislo);
write('vvedite chas');
readln(massiv[i].chas);
write('vvedite minutu');
readln(massiv[i].min);
write('vvedite sekundu');
readln(massiv[i].sek);
end;
for i := n downto 2 do
for j := 1 to i - 1 do
begin
???????????????????????????????
end;
readln;
end.