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

[margo_rita_92]

Помогите пожалуйста переделать процедуру всавки в список.Надо чтобы элементы вставлялись в упорядоченном порядке.Вот процедура:

Procedure Insert(var x:pt; y:integer);
  Var t:pt;
 Begin
  writeln('введите элемент, который надо вставить');
  readln(y);
   t:=x^.next; {1}
  New(x^.next); {2}
  x^.next^.data:=y; {3}
  x^.next^.next:=t; {4}
 End;
 
 Procedure Ins_List(Var x:pt;y:Integer);
 Begin
  If x=nil Then Begin
       New(x);
       x^.data:=y;
       x^.next:=nil;
    End  
   Else Insert(x,y);
 End;

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[s-andriano]

А что такое упорядоченный порядок?

PS. И оформите, пожалуйста, код по правилам форума.

[Serge_Bliznykov]

Марго_Рита,
во-первых, у Вас неправильно (нелогично) написана процедура Insert - Вы переменную y уже передаёте в процедуру, зачем её ЕЩЁ раз спрашивать.
во-вторых, вставить элемент так, чтобы список был упорядоченным, это же просто. нужно просто найти элемент, который больше вставляемого, и вставить перед ним.
Если такого элемента не нашли, тогда просто вставляем новый элемент в конец списка...