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

[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);

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

[volvo]

Если бы ты во-первых сделал так:

PROCEDURE SORT ( Var FIRST : EL);

, а во-вторых выделал бы память для массивов, в которых собираешься сортировать данные:

...
BEGIN
        New(Z1); New(Z2); { <--- Не забывай это возвращать потом }
	Q:=FIRST;
...

, то все бы работало...

Но утечка памяти все же есть: ты читаешь данные из первоначального списка, не удаляя их из памяти, а потом зачем-то организуешь новый список, т.е., расход памяти увеличивается вдвое... А удалишь ты в конце работы программы - только новый список (если вообще удалишь)...