сортировка+список Опции

[Rabbit]

надо отсортировать список по ключевому признаку, у меня все сортируется но обратно не записывается в список! подскажите где ошибка!
Может чтото с параметрами??

PROCEDURE SORT ( FIRST : EL);
TYPE
 	MAS1=ARRAY[1..100] OF INTEGER;
 	TMAS1=^MAS1;
	MAS2=ARRAY[1..100] OF STRING;
 	TMAS2=^MAS2;
VAR
	Z1:TMAS1;
	Z2: TMAS2;
	K,C,i,j: INTEGER;
	D: STRING;
BEGIN
	Q:=FIRST;
	K:=0;
	WHILE Q<> NIL DO
	    BEGIN
		INC(K);
		Z1^[K]:=Q^.INF1;
		Z2^[K]:=Q^.INF2;
		q:=q^.next;
	    END;
	
          FOR J:=1 TO K-1 DO
  	 FOR I:=1 TO K-J DO
   		IF Z1^[I]>Z1^[I+1]
 		THEN BEGIN
     				C:=Z1^[I];
     				Z1^[I]:=Z1^[I+1];
     				Z1^[I+1]:=C;
				D:=Z2^[I];
				Z2^[I]:=Z2^[I+1];
				Z2^[I+1]:=D;
  			 END;
{запись обратно в список}
	q:=nil;
	FIRST:=NIL;
	FOR I:=1 TO K DO
	BEGIN
	        new(p);
		if first=nil then first:=p;
		p^.inf1:=Z1^[i];
		p^.inf2:=Z2^[i];
		if q<>nil then q^.next:=p;
		q:=p;
        end;
        p^.next:=nil;
	
	writeln ('Operaciya vipolnena! Nagmite ENTER');
    	readkey;
END;

{ВЫЗОВ}
sort(first);

помогите пожалуйста!

[мисс_граффити]

Смотри рисунок.
Синим нарисовано, как были расположены указатели, красным - как стали (прошу прощения за качество... интернет почти не работает сегодня, в нормальном не могу выложить. но вроде разобрать можно).
Q - это элемент перед двумя меняемыми.
T - элемент с ключом х

Номера замен подписаны черным.
То есть 1 - это Q^.Next:=Q^.NEXT^.Next;
2 - T^.Next:=Q^.Next^.Next;
3 - Q^.next^.next:=T;

надеюсь, так разберешься. если что - спрашивай.

Сообщение отредактировано: мисс_граффити - 28.05.2007 16:27