Списки

[kapriz5]

Здравствуйте, уважаемые программисты, помогите пожалуйста с решением 2 задачек по паскалю на тему "Список",
1) Удалить из списка все вхождения заданного символаю. Новый список напечатать.
2) Составить программу для упорядочения в порядке возрастания элементов однонаправленного списка.
Прошу вас помогите мне, ((((((((((((((((((((((( пожалуйста товарищи(((((

[Tkirill]

uses crt;
const
nmax=10;
type
info=^rec;
rec=record
c:char;
next:info;
end;
var
p,f:info;
i:integer;
ch:char;
begin
clrscr;
new(p);
write(' -> ');
readln(p^.c);
f:=p;
f^.next:=nil;
for i:=2 to nmax do
begin
new(p);
write(' -> ');
readln(p^.c);
p^.next:=f;
f:=p;
end;
writeln;
writeln;
write(' Delete -> ');
readln(ch);
p:=f;
while p<>nil do
begin
if p^.next^.c=ch then p^.next:=p^.next^.next
else
p:=p^.next;
end;
p:=f;
while p<>nil do
begin
writeln(p^.c);
p:=p^.next;
end;
readln;
end.

[kapriz5]

Спасибочки вам большое, хоть одна задачка буит и то хорошо, СПАСИБКИ ВАМ)))))))))))))))))))))))))))))))) ))))))))))))буду пытаться сама решать задачки, а вот со второй задачкой проблемки(((((((((((((

[KNika]

скажите, пожалуйста, а вторую задачу вы решили? она у меня просто такая же))))