Проблема написания программки на Borland Pascal

[LN berf]

Я должен написать list

этот лист описан в библиотеке list.pas так.
---------------------------------------------------------

type
pos_type = ^link_type;
list_info_type = char;
link_type = record
info:list_info_type;
nextos_type;
end;
list_type = record
anchoros_type;
end;
Хочу щас написать программку использующую эту библиотеку.
Пользователь должен вводить место в listе и какой элемент он хочет в list занести

Вопрос
------------

Каким образом вводить место в listе если переменная pointer?!

Надеюсь не очень загрузил
Те кто еще че то помнить из Паааскаля помогите.

[eowyn]

Ты что хочешь вводить указатель?
Восстанавливая в голове, то что было в нее заложено пару-тройку лет назад, могу сказть, что место вставки в список вводилось по информационному полю... в данном случае, типа char.
Можно наверное воспользоваться и переменной типа link_type, но опять же полем info.
Или я что-то не так поняла и опять сморозила глупость?

[LN berf]

Да вроде info я ввел.
А вот позицию в listе как ввести?
Это ж ведь тоже указатель.

А! то есть надо позицию тоже как поле info вводить
А если у меня declaration процедуры такой

procedure list_insert(var l:list_type; posos_type; x:list_info_type);

[joker99]

LN berf:
Каким образом вводить место в listе

Обычно процедура вставки в лист получает элемент после которого надо вставить новое значение, или индех элемента после кототого надо вставить новое значение.
т.е

вставить после элемента elem элемент new_val
procedure list_insert(var l:list_type; elem:list_info_type; new_val:list_info_type);

вставить элемента new_val в месте index
procedure list_insert(var l:list_type; index:integer; new_val:list_info_type);

[Ghost]

Да вроде info я ввел. А вот позицию в listе как ввести? Это ж ведь тоже указатель.

Во-первых, позиция - целое число, а не указатель.
Во-вторых, вводить в list его не надо, поскольку расположение элементов в списке может меняться, соответственно, невозможно жестко привязать к какому-либо элементу индекс.
Таким образом, тебе нужно просто дописать прогу, всавив в нее только процедуру вставки нового элемента в нужную позицию. Кажись это будет выглядеть так (тока я не проверял, у меня нет на машине паскаля):

procedure List_PosItemInsert (var Head: pos_type;
  NewItemPos: integer; NewItemCont: list_info_type); far;
var
  NewItem: pos_type;
begin
  if NewItemPos < 1 then exit;
  if (NewItemPos = 1) or (Head = nil) then begin
    New (NextItem);
    NextItem^.Info := NewItemCont;
    NextItem^.Next := Head;
    Head := NextItem;
  end else begin
    NextItem := Head^.Next;
    List_PosItemInsert (NextItem, NewItemPos - 1, NewItemCont);
    Head^.Next := NextItem;
  end;
end;

[LN berf]

Спасибо всем кто помог.
Уже сам написал