Работа со списками - Pascal (90116)

Формулировка задачи:

кто знаком с такими динамическими переменными как списки? У меня с ними БОЛЬШИЕ проблемы О_о: помогите с задачей очень нужно, и пожалуйста просветите, что вообще можно (корректного) делать со списками?? Задача: Удалить второй элемент из списка, и все ему равные. Я так понимаю, что второй элемент нужно поставить на первое место, и его удалить, а как с подобными?

type
    ukazatel=^s;
    s=record
     dan:integer;
     next:ukazatel;
end;
var l,k,n:integer;
    u,x,u1,head:ukazatel;
 
 procedure add(x,i:integer);
 var j:INTEGER;
 begin
  if (i>0) and (i<=n+1) then begin
  new(u); u^.dan:=x;
  if i=1 then begin
  u^.next:=head;
  head:=u;
  end
  else begin
    u1:=head;
    for j:=2 to i-1 do
    u1:=u1^.next;
    u1^.next:=u;
  end;
  n:=n+1;
 end;
end;
 
 procedure delitem(i:integer);
 var e:integer;
 begin
  if (i>=1) and (1<=4) and (head <> nil) then
  if i=2 then begin { типа выбираем второй элемент для удаления}
  u:=head^.next; dispose (head); head:=u;
  end
  else begin
  u:=head;
  for e:=2 to i-1 do
  u:=u^.next;
  u1:=u^.next;
  u^.next:=u1;
  dispose(u1);
  end;
  end;
 
  procedure writelist;
 begin
 u1:=head;
 writeln('spisok');
 while u1 <>nil do
 begin
  write(u1^.dan,' ');
  u1:=u1^.next;
 end;
writeln;
end;
begin
   n:=0;
   head:=nil;
for k:=1 to 10 do add(k,k);
write;
{write (' vvedute znachenue dobavl. elementa:'); readln(k);
write (' vvedute poz. dobavl. elementa:'); readln(l);
add(k,l);}
writelist;
 write (' vvedute nomer. ydal. elementa:'); readln(k);
 delitem(k); writelist;
 readln
 end.

PS: как то все коряво и добавления элемента мне не надо, и как удалить равные второму?

Решение задачи: «Работа со списками»

Листинг программы

uses crt;
type ukazatel=^s;
     s=record
     dan:integer;
     next:ukazatel;
end;
var i,k:integer;
    u,x,u1,dx:ukazatel;
begin
clrscr;
  new(u);
  readln(u^.dan);
  u^.next:=nil;
  for i:=1 to 4 do begin
  new(x);
  readln(x^.dan);
  if i=3 then k:=x^.dan;
  x^.next:=u;
  u:=x;
 end;
 
writeln('danniy spisok');
 x:=u;
 while x<>nil do begin
  writeln(x^.dan);
  x:=x^.next;
 end;
 
for i:=1 to 4 do begin
 x:=u^.next;
 while (x<>nil) and (x^.dan<>k) do begin
  dx:=x;
  x:=x^.next;
  end;
 if x^.dan=k then begin dx^.next:=x^.next;
                        dispose(x);
                        end;
 end;
{
if u^.dan=k then begin
    x:=u;
    u:=u^.next;
    dispose(x);
    end;
 }
 
 
writeln('spisok ...');
u1:=u;
while u1<>nil do begin
writeln(u1^.dan);
u1:=u1^.next;
end;
readln;
end.

Объяснение кода листинга программы

Объявлены переменные: i, k, u, x, u1, dx типа integer, а также переменная типа ukazatel.
В цикле создаются 4 элемента списка и заполняются значениями.
Создается новый элемент списка (головной элемент списка), в который добавляются остальные элементы.
Запускается цикл по элементам списка и выводятся значения каждого элемента.
В цикле перебираются элементы списка, начиная с последнего элемента, и проверяется значение каждого элемента на равенство заданному значению k.
Если значение текущего элемента равно k, то удаляется текущий элемент.
Выводится список элементов.
В цикле перебираются элементы списка, начиная с первого элемента, и выводятся значения каждого элемента.
Завершается работа программы.