Работа со списками Паскаль

[ioda1986]

Дан список из 10 чисел.Нужно реализовать операции вставки и удаления элементов с произвольной позиции а вставки и удаления первого и последнего элементов.А также операцию поиска элемента и вывода его позиции.Как сделать вставку и удаление с произвольной позиции ясно.Подскажите пожалуйста как реализовать процедуру поиска и вывода позиции искомого элемента а также удаление первого и последнего элемента списка.Мои наработки приведены ниже.Заранее благодарен.

type pitem=^item;
item=record
data:integer;
nextitem;
end;
var head,p,p1item;
n,k,l:integer;
procedure add(x,i:integer);
var j:integer;
begin if (i>0) and (i<=n+1) then begin
new(p);p^.data:=x;
if i=1 then begin
p^.next:=head;head:=p;
end
else begin
p1:=head;
for j:=2 to i-1 do
p1:=p1^.next;
p^.next:=p1^.next;
p1^.next:=p;
end;
n:=n+1;
end;
end;
procedure delitem(i:integer);
var k:integer;
begin
if (i>=1) and (i<=n) and (head<>nil) then
if i=1 then begin
p:=head^.next;dispose(head);head:=p ;
end
else begin
p:=head;
for k:=2 to i-1 do
p:=p^.next;
p1:=p^.next;
p^.next:=p1^.next;
dispose(p1);
end;
end;
procedure writelist;
begin
p1:=head;
writeln('‘®¤Ґа¦Ё¬®Ґ бЇЁбЄ*')
;while p1<>nil do
begin
write (p1^.data,' ');p1:=p1^.next;
end;
writeln;
end;
begin
n:=0;head:=nil;
for k:=1 to 10 do add (k,k);
write;
write('Введите значение добавляемого элемента*') ;readln(k);
write('Введите позицию добавляемого элемента');readln(l);
add(k,l);writelist;
write('Введите номер удаляемого элемента*');readln(k);
delitem(k);writelist;
readln
end.

[Grag]

Вот тебе ссылочка на раздел моего сайта, там есть подраздел "Динамические структуры данных". Качай архивы с прогами, там все найдешь...

http://igor-bachin.narod.ru/Pages/pfolio3.htm