Процедура удаление элемента

[Liagushka]

Мне задали написать программу с использованием однонаправленного списка. Я её написал кроме одной процедуру. Помогите пожалуйста написать процедуру удаления элемента списка по его индексу, который вводится клавиатурой.
Моя программа:
Создание списка - сделал
Удаление элемента - не знаю как сделать
Вывод списка - сделал
Удаление списка с конца - сделал

program spisok;
uses
crt;
type
spis = ^el;
el = record
danie : integer;
next : spis;
end;

[Zer0]

Немного подскажу, логика такова, что при удалении n-ого элемента:
1) Идти от первого элемента списка до n-1 (a)
2) Получить отдельно следующий элемент по указателю (b)
3) Указателю n-1 элемента присвоить указатель n (a^.next:=b^.next);
4) Удалить из памяти нужный элемент (freemem(b));

[ViktorR]

А вот ещё одно предложение.
Во вложении фрагмент из книги Т.А. Павловской: Паскаль. Программирование на ЯВУ. В приведенном коде функции для работы со списком.

Думаю, что это то ...

[Liagushka]

Что-то похожее на это?

procedure Delete( var beg : spis; key : word);
var p : spis;      { указатель на удаляемый элемент }
     pp : spis;     { указатель на предыдущий элемент }
begin
   if not find(beg. key. p. pp) then begin
       writelm(' Удаление не выполнено'); exit; end;
   if p = beg then beg := beg^.p { удаление первого элемента }
   else pp^.p := p^.p;
   dispose(p);
end;

[Serge_Bliznykov]

что-то похожее на это.

только:
1) код явно некомпилируемый, ибо параметры должны отделяться запятыми, а не точками
2) у вас нет поля с именем p вместо p^.p должно быть p^.Next

..
   if p = beg then beg := p^.Next { удаление первого элемента }
   else pp^.Next := p^.Next;
..

3) процедура find должна быть реализована (причём, разумеется, корректно! )

но в целом Вы идёю уловили ПРАВИЛЬНО!