Lo que hicexd

program listabelk;
uses
 crt;
type
 tipolista=^nodo;
 nodo     =record
   dato    :integer;
   sig     :tipolista;
end;

var
opc  :integer;
lista1:tipolista;

procedure menu;
 begin
  clrscr;
  writeln ('mené principal');
  writeln ('opciones.');
  writeln ('1.Insertar lista,');
  writeln ('2.Imprimir lista,');
  writeln ('3.salir');
 end;

procedure insertar (var lista1:tipolista);
 var
  elem:integer;
  aux1,aux2:tipolista;
begin
 writeln ('lista creada');
 writeln ('introduzca un elemento numerico');
 readln  (elem);
 writeln ('el elemento fue cargado');
  if (lista1 = nil) then
   begin
     new (aux1);
     aux1^.dato:=elem;
     aux1^.sig :=nil;
     lista1    :=aux1;
   end
  else
    begin
      new(aux2);
      aux2:=lista1;
      while (aux2^.sig = nil) do
       aux2:= aux2^.sig;
      new (aux1);
      aux1^.dato:=elem;
      aux1^.sig :=nil;
      aux2^.sig :=aux1;
    end;
end;

procedure imprimir (var lista1:tipolista);
begin
   while (lista1<>nil) do
     begin
      write (lista1^.dato);
      lista1:=lista1^.sig;
      readln;
   end;
end;


begin
lista1:= nil;
 repeat
  menu;
   writeln ('eliga una opcion:');
   writeln ('elige una opciàn');
   readln  (opc);
   writeln ('usuari@ usted a seleccionado la opcion:',opc);
    case opc of
     1:insertar (lista1);
     2:imprimir (lista1);
     3:exit;
    end;
 until (opc = 3);
 readln;
end.