Эм!О_о
если сделать эту кнопку:
---Вся проблема здесь---
Код:
procedure TForm1.Button12Click(Sender: TObject);
var z,q:link;
n,i:integer;
begin
z:=L.next; L.next:=z.next; dispose(z)
end;
то по тому условию, которое в ней описано, она работает, т.е. удаляет 2-ой элемент записи.
Не получается организовать это с вводом номера элемента, пример:
вот список:
--------
wer
sdf
sdg
asdf
xcv
---------
5-ть элементов, вводим 3, удаляется "sdg"
Не получается сделать цикл и заставить правильно прошагать...(