Сортировка в паскале

[evrey]

Дан типизированный файл который содержит записи о товаре.Напишите процедуру сортировки по названию товара.:

[puporev]

sp:array[1..20]of Ttovar;//массив записей или список товаров
bf:Ttovar;//буфер при сортировке записей
sp[i].name //поле названия
Тогда сортировка будет так (по алфавиту):

for i:=1 to n-1 do
for j:=1 to n-1 do
if spj].name>sp[j+1].name then
     begin
       bf:=sp[j];
       sp[j]:=sp[j+1];
       sp[j+1]:=bf;
     end.

Вся сортировка.