Переделать список без ООП, помогите, очень надо!!! Опции

[SunDevil]

Здравствуйте!
Прощу вашей помощи. Вот такая задача: Вводим любой список(массив записей) с клавиатуры. Список должен быть двусвязный. Потом программа должна "спросить" о добавлении нового элемента в список. Ну, типа, writeln('Введите еще один элемент') и добавить его в КОНЕЦ СПИСКА. Потом программа должна определить количество элементов в списке. И в конце должна "спросить" writeln('Введите номер элемента, который следует удалить') и удалить тот элемент, который я ввел с клавиатуры. Очень нужна ваша помощь! Даже не могу показать вам свой исходник, т.к. его просто у меня нет
ОЧЕНЬ ПРОШУ - ПОМОГИТЕ! БОЛЬШОЕ СПАСИБО!
p.s. Извините, может это и есть в FAQ, но времени у меня мало, чтобы искать, а срочно надо до завтрашнего дня!
ЕЩЕ РАЗ СПАСИБО!

[volvo]

Ну, если быстро, то вот так:

Код

uses item, list;

var
 l: tlist;
 s: string;
 p: ptitem;
 count, index: integer;

begin
 L.init;

 repeat
   write('вводите строку: '); readln(s);
   if s <> '' then L.append(s);
 until s = '';

 write('Введите еще один элемент: '); readln(s);
 L.append(s);
 L.print;

 p := L.first; count := 0;
 while assigned(p) do
   begin
     inc(count);
     p := p^.next
   end;
 writeln('count = ', count);

 write('Введите номер элемента, который следует удалить: ');
 readln(index);

 p := L.first;
 while index > 1 do
   begin
     dec(index); p := p^.next
   end;
 L.remove_item(p);
 L.print;

 L.done;
end.

P.S. Почитать про динамические структуры данных можно здесь: FAQ: Динамические структуры данных (для успешного запуска программы необходимо скачать модуль List.rar и распаковать его содержимое в отдельную папку)