Задача на списки Опции

[dream-x]

Здравствуйте! Я был бы очень рад если бы вы мне помогли бы с маленькой пробдемой...
Программа должна переставить элементы списка по следующему звкону: если текущий элемент больше некоторого числа Р то поместитьследующий заним элемент в конец цепочки; если текущий элемент меньше или равен Р перенести его в начало цепочки (первый оставить безизменения)
Вот код но это не вся программа почемуто у меня список не хочет присваиваться и выводится на экран...

Program Spisok;
Uses CRT;
Type
    TDat=integer;
    TLink=^Element;
    Element=Record
                  Data:TDat;
                  Link:TLink;
            End;
Var
   List1,Elem,FindElem:TLink;
   i,n,p:TDat;
{----------------}
Procedure InPutList(Var List:TLink);
Var
   ElNew:TLink;
   Val:TDat;
   i,n:Integer;
Begin
     ClrScr;
     WriteLn('vvedite kol-vo elementov spiska ');
     ReadLn(n);
     List:=NIL;
     For I:=1 To n Do
         Begin
              WriteLn('vvedite ',i,' element');
              Read(val);
              New(ElNew);
              ElNew^.Data:=Val;
              ElNew^.Link:=List;
              List:=ElNew;
        End;
End;
{----------------}
Procedure OutPutList(Var List:TLink);
Var
   i:TDat;
Begin
     WriteLn('element spiska ');
     While List <> NIL Do
           Begin
                Write(List^.Data,' ');
                List:=List^.Link;
           End;
     WriteLn;
End;
{----------------}
{----------------}
Begin
     InPutList(List1);
     List1:=List1;
     OutPutList(List1);

     OutPutList(List1);
     Elem:=List1;



     Write('wedite P=');
     Readln(P);


     FindElem:=NIL;
     While List1 <> NIL Do
         Begin

           If Elem^.Data>P
           Then
               Begin
                    FindElem:=Elem;
                    New(FindElem);
                    {Elem^.Link:=NIL;}
                    Elem^.Link:=FindElem;
                    FindElem^.Link:=NIL;

               End
           Else Elem:=Elem^.Link;

        End;

     OutPutList(Elem);


End.

Заранее СПАСИБО...

Сообщение отредактировано: dream-x - 4.05.2008 18:56

[volvo]

Если кому нужна эта задача то вот исходник

Не могу понять программистов, которые делают непонятные (интуитивно) программы...

Если я ввожу данные в список так:
<1, 2, 3, 4, 5> - почему тут же получаю распечатку в виде:
<5, 4, 3, 2, 1> ? Что, настолько сложно сделать добавление в конец списка? Всего навсего:

Procedure InPutList(Var List:PLink);
Var
   ElNew, Tail: PLink;
   Value:TData;
   i,n:Integer;
Begin
     ClrScr;
     WriteLn('vvedite kol-vo elementov spiska ');
     ReadLn(n);

     List := nil; Tail := nil;
     For I:=1 To n Do
         Begin
              WriteLn('vvedite ',i,' element');
              Read(value);
              New(ElNew);
              ElNew^.Data:=Value;
              ElNew^.Link:=nil;

              if List = nil then List := ElNew
              else Tail^.Link := ElNew;

              Tail := ElNew;
        End;
End;

неужели настолько много изменилось?

Второе: по условию -

Программа должна переставить элементы списка по следующему звкону: если текущий элемент больше некоторого числа Р то поместитьследующий заним элемент в конец цепочки; если текущий элемент меньше или равен Р перенести его в начало цепочки (первый оставить безизменения)

Все. Точка... Вводить надо только список и значение P. С какой стати программа требует ввода какого-то O? Хоть бы объясняла, зачем оно, а то, собственно, что вводить-то?

Добавлено через 11 мин.
P.S. Опять же... Основная программа:

...
                         insert(Elem,O);
                         OutPutList(NewElem); { <--- Это значение что, где-то инициализировалось? }
...

Нет... Зачем выводить пустоту?

А при вводе в O значения, которое превышает P (я не знаю, что туда надо было вводить, поэтому экспериментирую в режиме телепатии) программа вообще зацикливается...