Создание списков, Список Стек Опции

[Atreides]

Список я написал. Но народ подскажите, пожалуйста, как вот для таково односвязного списка стек сделать процедуру добавления и удаления элемента. И объясните, как производится добавление и откуда должно происходить удаление, если добавлять нужно с головы. Не это понятно, что в стеке добавление и удаление должно происходить только с одного и того же места, но какой элемент будет удаляться? Это мой список, где id – это номер, а str – значение элемента.
Doit_Item – элемент, над которым производят действие. Остальное думаю понятно.

Код

uses
 SysUtils;

Type
Steck=^nsteck;
Nsteck=record
Id:cardinal;
Str:string[99];
Next:steck;
End;
Var head:steck;
Procedure Add_Item(head:steck);
Var New_Item,Doit_Item:steck;
Begin
GetMem(New_Item,sizeof(steck));
If New_Item<>Nil then
Begin
Writeln('id:');
Readln(New_Item.id);
Writeln('str:');
Readln(New_Item.str);
New_Item.next:=Nil then
head:=New_Item else
Begin
Doit_Item:head
While Doit_Item.next<>Nil do
Doit_Item:-Doit_Item.next;
Doit_Item.next:=New_Item;
End;
End;
End.

Сообщение отредактировано: Atreides - 2.05.2005 18:42

[Digitalator]

а в пасе разве есть SysUtils ? это уже из делфи ... но тут помоему и без этого модуля все будет прекрасно работать.
Вопросц : нафиг в делфях самому писать списки??? там уже все есть...