Напишите программу с использованием динамических структур(списка)

[netiv]

Приветствую.
Снизу в коде формируется список студентов по алфавиту, но никак не получается сделать так, чтобы список формировался по убыванию букв в фамилии.
Помогите кто знает.

Program dinsort1;
type
p_stud=^student;
student=record
name: string[20];
next: p_stud;
end;
var
head: p_stud; {указатель на первый элемент списка}
cur: p_stud; {текущий элемент списка}
p: p_stud; {элемент, после которого вставляем новый узел}
name: string[20]; {фамилия, вводимая с клавиатуры}
node: p_stud; {новый узел списка}
begin
repeat
write ('фамилия->');
readln (name);
if length (name) <>0 then begin
{введена строка символов}
new (node); {создадим новый элемент списка}
node^. name:=name;
node^. Next:=nil;
{ищем место для вставки нового элемнта}
cur:=head;
p:=nil;
{будем сравнивать введенное значение со значением текущего узла}
while (name>cur^. name) and (cur <> nil) do begin
{введенное значение больше текущего}
p:=cur;
cur:=cur^. next; {к следующему узлу}
end;
if p=nil then begin
{узел в начало списка}
node^. next:=head;
head:=node;
end
else begin
node^. next:=p^. next;
p^. next:=node;
end;
end;
until length (name)=0; {фамилия не введена, нажата клавиша <Enter>}
{распечатаем введенный список}
cur:=head;
writeln ('**Список студентов');
while cur <> nil do begin
writeln (cur^. name);
cur:=cur^. next;
end;
writeln ('**');
readln;
end.