ошибка при сортировки пузырьком(Delphi)

[maksat-15]

Задание Есть список студентов по фамилии и году рождения. надо отсортировать по фамилии.Но вместо сортировки выдает нули. Вот часть кода с сортировкой.


procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
k:zap;
begin

for i:=1 to n do
for j:=1 to n-i do
if a[j].fam[1]>a[j+1].fam[1] then
begin
k:=a[j];
a[j]:=a[j+1];
a[j+1]:=k;
end;
listbox2.Items.Add(c[i].fam + ' ' +inttostr( c[i].god));

end;



где ошибка?

[BDA]

Как минимум:

for i:=1 to n do
for j:=1 to n-i do
if a[j].fam>a[j+1].fam then
begin
k:=a[j];
a[j]:=a[j+1];
a[j+1]:=k;
end;
for i:=1 to n do
listbox2.Items.Add(a[i].fam + ' ' +inttostr(a[i].god));

[maksat-15]

Спасибо заработало)