паскаль, списки. помогите, пожалуйста !!

[Roxy]

пожалуйста, помогите написать программу !!

Переместить в конец линейного списка элементы с нечетными положительными значениями. Относительное расположение элементов не изменять. Список двунаправленный.

[Roxy]

[Serge_Bliznykov]

ну и что расстраиваемся...
за неделю сделали сами что-нибудь? Где Ваши наработки? Описание структур, ввод данных... что делали, что не получилось... поиском по форуму искали?

А если хотите всё сразу и целиком - так это во фриланс, за денюжку...

[Roxy]

есть задача, где переносятся макс. значения, подскажите, как реализовать мое условие

unit Z_2_1;
interface
procedure work3;
procedure vvod2;
implementation
uses crt;
procedure vvod2;
begin
writeln();
writeln();
end;
type Tspisok=^spisok;
spisok=record
info:integer;
next:Tspisok;
prev:tspisok;
end;

var head,tail,prev,next,tail2:tspisok;
p:tspisok;
a,m:integer;
procedure work3;
begin
head:=nil;
tail:=nil;
Writeln('‚ўҐ¤ЁвҐ §* зҐ*Ёп н«Ґ¬Ґ*в®ў бЇЁбЄ ');
Writeln('„«п ®Є®*з *Ёп ўў®¤ ўўҐ¤ЁвҐ 0');
repeat
Readln(a);
if a<>0 then
begin
New(p);
p^.info:=a;

If Head = Nil then
Head:=p
Else
Tail^.Next:=p;
p^.prev:=Tail;
Tail:=p;
end;
Tail^.Next:=nil;
until a=0;

clrscr;
vvod2;

tail^.next:=nil;
p:=head;
p^.prev:=nil;
m:=head^.info;
while p^.next<>nil do
begin
if p^.info>m then m:=p^.info;
p:=p^.next;
end;
tail2:=p;
tail2^.next:=nil;
tail2^.prev:=p^.prev;
writeln('€б室*л© бЇЁб®Є');
p:=head;
while p<>nil do
begin
if (p^.info=m) and (m>tail2^.info) then textcolor(red)
else
if (p^.info=tail2^.info) and (m<=tail2^.info) then textcolor(red);
write(p^.info:7);
textcolor(14);
p:=p^.next;
end;
writeln;
writeln;

p:=head;
p^.prev:=nil;

while (head<>tail2) and (head^.info=m) and (tail2^.info<=m) do
begin
p:=head;
head:=head^.next;
head^.prev:=nil;
p^.prev:=tail;
p^.next:=nil;
tail^.next:=p;
tail:=p;
end;

p:=head;
p^.prev:=nil;
if head<>nil then
begin
while p<>tail2 do
begin
if (p^.info=m) and (tail2^.info<=m) then
begin
next:=p^.next;
prev:=p^.prev;
next^.prev:=prev;
prev^.next:=next;

p^.prev:=tail;
p^.next:=nil;
tail^.next:=p;
tail:=p;


p:=next^.prev;

end
else
p:=p^.next;
end;
end;




p:=head;
writeln('ЏаҐ®Ўа §®ў **л© бЇЁб®Є');
writeln;
while p<>nil do
begin
if (p^.info=m) and (m>tail2^.info) then textcolor(red)
else
if (p^.info=tail2^.info) and (m<=tail2^.info) then textcolor(red);
write(p^.info:7);
textcolor(14);
p:=p^.next;
end;

writeln;
writeln('„«п ўл室 * ¦¬ЁвҐ Enter');

end;
end.