Код
inf: array [1..8] of note;
dt: array[1..3] of integer;
i, j: integer; s: string [10];
for i:=1 to n-1 do {Сортировка по возрастанию}
for j:=i+1 to n do
if inf[i].dt > inf[j].dt then
begin
s:= inf[i].dt;
inf[i].dt:= inf[j].dt;
inf[j].dt:= s;
end;
{возвращает 0 если массивы одинаковы, 1 если a>b и -1 если a<b}
function CmpArrayInt(const a, b: array of integer): integer;
begin
.......................
end;
....................
if CmpArrayInt(inf[i].dt, inf[j].dt)>0 then
....................
if inf[i].dt > inf[j].dt then
превращается в
if (inf[i].dt[1]+inf[i].dt[2]*100+inf[i].dt[3]*10000) > (inf[j].dt[1]+inf[j].dt[2]*100+inf[j].dt[3]*10000) then