Динамические списки

[Pavelhr]

ДОброй ночи) Помогите пожалуйста найти неисправность)

Отсортировать только положительные числа:
С помощью динамических списков:

procedure SortList;
 var
 priz :boolean;
 z,k :integer;
   begin
    p1:=first;
    priz:=true;
    while priz do begin
      priz:=false;
      while i<x-1 do begin
	  if p1^.ch>0 then
	  while priz=false do
	  for k:=i+1 to x do   begin
	  if k=x-1 then begin priz:=true; break; end;
	  if p2^.ch>0 then begin
	                    priz:=true;
	                    break;
	                   end;
					       end; 
	
        if p1^.ch > p2^.ch then begin
          z:=p1^.ch;
          p1^.ch:=p2^.ch;
          p1^.next^.ch:=z;
		  
		  
		  while (i>1) AND (p1^.prev^.ch<0) do dec(i);
                       dec(i);
		  
                                end else
        if p1^.ch < 0 then p1:=p1^.next else p2:=p2^.next;
               end;
            writeln;
                   end;
	end;