Двухпутевое естественное слияние

[Annett#]

помогите....
Частное предприятие занимается приобретением у изготовителей шоколадных конфет в упаковках (коробках) и их продажей частным лицам и организациям. Сведения о конфетах включают в себя следующие данные:
□ название; □ вес упаковки; □ цена упаковки;
□ изготовитель; □ дата выпуска; □ срок хранения.
Вывести сведения о конфетах, упорядочив их по названию. Использовать двухпутевое естественное слияние.
Вариант без сортировки:
uses crt;
const n = 2;
type sweets = record
name: string;
weight: byte;
cost: integer;
maker: string;
data: string;
save: 1..6;
end;
var i,j: integer;
x: sweets;
konf: array [1..n] of sweets;
BEGIN
writeln('---КОНФЕТЫ---');
for i:= 1 to n do begin
with konf[i] do begin
write('Название: '); readln(name);
write('Масса нетто, кг: '); readln(weight);
write('Цена упаковки, руб: '); readln(cost);
write('Изготовитель: '); readln(maker);
write('Дата выпуска: '); readln(data);
write('Срок хранения, мес.: '); readln(save); end;
end;
writeln('Назв. кг руб Изгот. Дата в. мес. ');
for i:= 1 to n do
with konf[i] do begin
writeln(name:5, weight:7, cost:7, maker:7, data:7, save:7);
end;
writeln('-------------------------------------------------------------');
for i:=1 to n-1 do
for j:=i+1 to n do
if konf[i].name>konf[j].name then
begin
x:=konf[i];
konf[i]:=konf[j];
konf[j]:=x;
end;
writeln('Упорядочение по названию');
writeln('Назв. кг руб Изгот. Дата в. мес. ');
for i:= 1 to n do
with konf[i] do begin
writeln(name:5, weight:7, cost:7, maker:7, data:7, save:7);
end;
end.

А как сделать с использованием файлов и двухпутевого естественного слияния?