KLENINA_input_and_output_list

//link https://yadi.sk/d/4BGcJFnavyeZ3Q
type
   liste = record
      next: ^liste;
      inf: integer;
   end;

   list = record
      list1, list2, list3, list4: ^liste;
   end;

var
   listw:list;
   i, inf, n, n1, n2: integer;
   x:boolean;
   s:string;



   procedure vvod(var listw: list);
   var y:integer;
      begin
            begin
                  writeln('Введите элемент который хотите добавить');
                  readln(y);
                  New(listw.list2^.next);
                  listw.list2^.inf := y;
                  listw.list2 := listw.list2^.next;
            end;
      end;

   procedure vivod(listw: list);
   begin
   writeln(listw.list1^.inf);
      writeln('Вывод списка элементов:');
      while listw.list1 <> nil do
         begin
            if listw.list1^.next<>nil then
            Writeln(listw.list1^.inf);
            listw.list1 := listw.list1^.next;
         end;
      listw.list1 := listw.list3;
      writeln();
   end;

begin
   New(listw.list1);
   listw.list2 := listw.list1;
   while x=false do
      begin
         writeln('1 - добавить элемент (только числа), 2 - вывести список ');
         readln(i);
         if i=1 then
            vvod(listw)
         else
            if i=2 then
               vivod(listw)
         else
         writeln('Введите корректное число');
      end;
end.