delphi помощь в сортировке массива записи.

[Greenfed]

Я пытался реализовать сортировку по параметру дата(day) в порядке возрастания( пробовал сортировку Пузырьком) , но у меня возникала проблема при выводе результата: сортировка проходила только в дате, но остальные позиции были не затронуты. Потратил два дня на обдумывания , но нечего в голову не пришло , только как переписать код с использованием процедур , но в этом смыла нет, думаю я. Кто может помочь по части сортировки ?
program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
System.SysUtils;

type person= record
product,name:string;
day,col,price:byte;

end;

var client:array[1..100] of person;
i,n:integer;
x,j,sum:byte;
begin
write('Количество клиентов:');
readln;
sum:=0;
for i:=1 to n do
begin
write('ФИО клиента:' );
readln(client.name);
write('Купленное изделие:');
readln(client.product);
write('Цена за единицу продукции:');
readln(client.price);
write( 'Количество:');
readln(client.col);
write('День покупки:');
readln(client.day);
sum:=sum+(client.col*client.price);
writeln('-------------------------------------------');
end;
for i:=1 to n do
begin
writeln('Клиент: ',client.name,' |Изделие: ',client.product,' |Цена за изделие: ',client.price,' |Количество купленного: ',client.col,' |Дата:', client.day);
writeln('-------------------------------------------');
end;
// сортировка
writeln('Итоговая сумма:',sum );
readln;
end.

 

[regnor]

тут вроде не по делфи раздел...