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

[Gonzo]

Написать процедуру: С клавиатуры вводятся слова и помещаются в D-список (info:string). Построить еще один список, который содержит элементы исходного списка, расположенные по возрастанию. Собственно с сортировкой проблемы:

procedure Sort_Spisok;
begin
D1:=head;
D1^.info:=D^.info;
repeat
while D<>nil do
 begin
  if (D^.info > D1^.info) then D1^.info:=D^.info;
  D:=D^.next;
 end;
D1:=D1^.next;
until D1=nil;
end;

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

[Sazary]

Не совсем ясно, что есть D, D1 и head.
Набросал примерчик. Вроде все понятно.

uses crt;
type
pspis = ^spis;
spis = record
info : string;
next : pspis;
end;

var
D,T : pspis;

{ добавление элемента }
function addel(S : pspis; str : string) : pspis;
 var newS : pspis;
 begin
 new(newS);
 newS^.info := str;
 newS^.next := nil;
 S^.next := newS;
 Result := newS;
 end;

{ удаление элемента }
function delel(S : pspis) : pspis;
 begin
 Result := S^.next;
 dispose(S);
 end;

{ сортировка }
function spis_sort(S : pspis) : pspis;
 var i,j,tmp,t : pspis;
 begin
 i:=S;
 while i^.next<>nil do
  begin
  j:=i^.next;
  t := i;
  while j<>nil do
   begin
   if j^.info<t^.info then
    begin
    tmp^.info := t^.info;
    t^.info := j^.info;
    j^.info := tmp^.info;
    end;
   j := j^.next;
   end;
  i := i^.next;
  end;
 Result := S;
 end;

begin
clrscr;
new(D);
D := addel(D,'abc');
T := D;
D := addel(D,'lfd');
D := addel(D,'gte');
D := addel(D,'agr');
D := addel(D,'bdfasd');
D := T;

{ выводим исходный список }
T := D;
while T<>nil do
 begin
 writeln(T^.info);
 T := T^.next;
 end;

writeln('-------');

{ сортируем и выводим }
D := spis_sort(D);
T := D;
while T<>nil do
 begin
 writeln(T^.info);
 T := T^.next;
 end;

{ очищаем }
T := D;
while T<>nil do
 begin
 T := delel(T);
 end;

readln;
end.

[Gonzo]

спасибо, добавил отзыв.

[Gonzo]

Что-то я поспешил с отзывом.
Sazary, Вы её вообще компилировали?

[Sazary]

Сообщение от Gonzo

Sazary, Вы её вообще компилировали?

Я всегда компилирую свои исходники. Программа работает.
Если не верите, прилагаю скрин.

Впрочем, догадываюсь, почему у вас что-то может не работать.. Ругается на неизвестный идентификатор? И компилятор TP7?

Если так, замените во всех функциях "Result" на название самой функции.
В более современных компиляторах с этим проблем нет.

[Gonzo]

Еще раз спасибо.