Связанные динамические данные.

[patisson74]

Дано число N и набор из N чисел. Создать стек, который содержит входные числа (последнее число будет вершиной стека), и вывести указатель Р1 на его вершину. Если N = 0, то положить P1 = nil.
Вот то, что я нашел, процедуры создания, добавления элемента в стек, удаления стека, начал писать основную программу, но закончить не получается, я не могу связать добавление элемента с соответствующей процедурой....

Program Stek;
Uses  crt; 
type
  Tinf=integer; {тип данных, который будет храниться в элементе стека}
  List=^TList;  {Указатель на элемент типа TList}
  TList=record 
    data:TInf;  {данные, хранимые в элементе}
    next:List;   {указатель на следующий элемент}
  end;
 
{Процедура добавляющая элемент в стек}
procedure AddElem(var  stek1:List; znach1:TInf);
var
  tmp:List;
begin
  GetMem(tmp,sizeof(TList)); {выделяем в памяти место для нового элемента}
  tmp^.next:=stek1;  {указатель на следующий элемент "направляем" на вершину стека}
  tmp^.data:=znach1; {добавляем к элементу данные}
  stek1:=tmp; {вершина стека изменилась, надо перенести и указатели на неё}
end;
 
{Процедура вывода стека}
procedure Print(stek1:List);
begin
  if stek1=nil then {проверка на пустоту стека}
  begin
    writeln('Стек пустой');
    exit;
  end;
  while stek1<>nil do {пока указатель stek1 не станет указывать в пустоту}
  begin   {а это произойдёт как только он перейдёт по ссылке последнего элемента}
    Write(stek1^.data, ' '); {выводить данные}
    stek1:=stek1^.next  {и переносить указатель вглубь по стеку}
  end;
end;
 
{Процедура освобождения памяти занятой стеком}
Procedure FreeStek(stek1:List);
var
  tmp:List;
begin
  while stek1<>nil do {пока stek1 не станет указывать в "пустоту" делать}
  begin
    tmp:=stek1; {указатель tmp направим на вершину стека}
    stek1:=stek1^.next; {вершину стека перенесём на следующий за данной вершиной элемент}
    FreeMem(tmp,SizeOf(Tlist)); {освободим память занятую под старую вершину}
  end;
end;

var N:integer;
begin
clrscr;
writeln('Введите количество элементов стека ',N);
if N <> 0 do
writeln('Введите элементы стека ');

readln;
end.

Помогите, пожалуйста, как нужно все это связать воедино????

[eoln]

var
  N, i: integer;
  x: TInf;
  MyStek: List;
begin
  writeln('Введите количество элементов стека ',N);
  readln(N);
  MyStek := nil;
  for i := 1 to N do begin
    write('Введите элементы стека #', i, ' ');
    readln(x);//вводим
    AddElem(MyStek, x)//добавляем
  end;
  Print(MyStek);//выводим
  FreeStek(MyStek);//удаляем
  readln
end.

[patisson74]

Спасибо, вроде заработала, но непонятно почему пишет
"Введите количество элементов стека 0" ? Почему ноль? Что-то я уже совсем запутался..........

[eoln]

writeln('Введите количество элементов стека ');// N - не нужно, осталось от копипаста

[patisson74]

Ясно, еще раз СПАСИБО за помощь!