uses SysUtils Windows type TNode2Ptr TNode2 TNode2 record item word ne

uses
  SysUtils, Windows;
 type
   TNode2Ptr=^TNode2;

   TNode2 = record
   item:word;
   next,prev: TNode2Ptr;
   end;
  var
    head,tail,cur,cur1: TNode2Ptr;
    a:Word;
    choice:Word;

  procedure CreateSpysok;
  begin

  head:=nil;
  Writeln;
  write('Введіть число. Для закінчення введення введіть нуль: ');
  read(a);

  if a<>0 then
  begin
    New(Cur);
    cur^.item:=a;
    cur^.prev:=nil;
    head:=cur;
    cur1:=cur;
  end;

  write('Введіть число. Для закінчення введення введіть нуль: ');
  read(a);
  while a<>0 do

  begin
  New(Cur);
  cur^.item:=a;
  cur^.prev:=cur1;
  cur1^.next:=cur;
  cur1:=cur;
  write('Введіть число. Для закінчення введення введіть нуль: ');
  read(a);
  end;

  cur^.next:=nil;
  tail:=cur;
  end;
  procedure ViewSpysok;
  begin
    Writeln('Список');
    cur:=head;
    while cur<>nil do
    begin
      Writeln(cur^.item);
      cur:=cur^.next;
    end;
  end;
  BEGIN
 SetConsoleCP(1251);
 SetConsoleOutputCP(1251);
writeln('1. Створити список.');
writeln('2. Переглянути список.');
writeln('3. Вийти');
writeln;

write('Введіть пункт меню: ');
readln(choice);

while choice<>3 do
begin
  if choice=1 then
  CreateSpysok;

  if choice=2 then
  begin
    Writeln;
    Writeln;
    ViewSpysok;
    end;
    writeln;

    writeln('1. Створити список.');
    writeln('2. Переглянути список.');
    writeln('3.Вийти');
    writeln;
    write('Введіть пункт меню: ');
    Readln(choice);
    end;
   readln;
end.