ну тогда не используй функцию, я написал так, чтобы понятнее было.
Код:
procedure Sort;
......
if (zapis1[i].date[3] * 1000 + zapis1[i].date[2] * 100 + zapis1[i].date[1]) > (zapis1[i + 1].date[3] * 1000 + zapis1[i + 1].date[2] * 100 + zapis1[i + 1].date[1]) then begin
....
обмен
....
end;
.....
end;