Указатели.Добавление элемента в очередь.

[misery24-7]

Имеется процедура добавления элемента в очередь(в конец списка),но в ней нельзя ввести этот элемент с клавиатуры.Вопрос,как сделать ввод с клавиатуры нового элемента,и в какую переменную его обозначить в этой процедуре?Поясняю:процедура на поиск есть,а вот ввести слово,которое она будет искать не дано.как это сделать?
Код прилагаю:

procedure AddList(n:tdata;var head,tail:ukazatel);
   var p:ukazatel;
begin
     writeln('Vvedite noviy element');
     New(p);
     p^.data:=n;
     p^.next:=nil;
     if tail=nil then
     begin
          tail:=p;
          head:=p;
     end
     else
     begin
          tail^.next:=p;
          tail:=p;
     end;
end;

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

приведите описание типа tdata.

я бы предложил так:

procedure AddList(var head,tail:ukazatel);
var p:ukazatel;
  n:tdata;
begin
     writeln('Vvedite noviy element');
     Readln(n);
     New(p);
     p^.data:=n;
     p^.next:=nil;
....

но боюсь, что Паскаль откажется читать переменную N...

[Stilet]

но в ней нельзя ввести этот элемент с клавиатуры.

А оно туточки и не нужно.
Где ты вызываешь эту функцию - там и вводи.

[misery24-7]

Serge_Bliznykov,да,именно так и будет
Stilet,не совсем понимаю.
у меня есть текстовый файл,из которого программа считывает поля с инфой и записывает в переменные.А потом идет процедура AddList и ничего ввести своего не получается,там нужно отдельно же выделать переменную для ввода

[misery24-7]

вот код,куда там вводить то? :D

program demo;
uses crt,example;
var
   f:text;
   st:string;
   code:integer;
   k:byte;
   n:tdata;
   nomer:integer;
begin
     assign(f,'t8.txt');
     reset(f);
     InitList;
     while not Eof(f) do
     begin
          readln(f,st);
          n.name:=copy(st,1,pos('*',st)-1);
          n.strana:=copy(st,pos('*',st)+1,6);
          val(copy(st,pos('#',st)+1,4),n.age,code);
     AddList(n,head,tail);
     end;
     clrscr;
     repeat
     writeln('Viberite punkt menu:');
     writeln('1-Prosmotr spiska');
     writeln('2-Dobavlenie elementa v spisok');
     writeln('3-Poisk elementa po kluchevomu znacheniu');
     writeln('4-Vihod iz programmi');
     readln(k);
     case k of
     1:LookList(head,tail);
     2:AddList(n,head,tail);
     3:writeln('Poisk');
     4:writeln('Vihodim..');
     else
         writeln('Nedopustimaya operaciya');
     end;
     until k=4;
     repeat until keypressed;
end.

[Stilet]

          readln(n.name);
          readln(n.strana);
          readln(n.age);
     AddList(n,head,tail);

Теперь понятно?

[misery24-7]

Stilet,получилось,огромное вам спасибо,не знаю сколько бы еще сидел без вас :DDD