Pascal/Turbo Pascal - Alguna ayuda para un registro con dos variables en Pascal

{Contestada en la anterior pero por si}

 program regisvari;

 uses

    crt;

  type

    articulo = record

       codigo : word;

  descripcion : string[30];

   existencia : byte;

         tipo : byte;

   precio_vta : real;

       end;

   var

     lavandina, desodorante : articulo;

     dato1, dato2 : boolean;

   procedure entradadatos(var d : articulo; cual : string);

   begin

      clrscr;

      writeln('**** Entra Dadatos ',cual,' ****');

      writeln;

      write('  Entre Codigo       : ');

      readln(d.codigo);

      write('  Entre Descripcio   : ');

      readln(d.descripcion);

      write('  Entre Existencias  : ');

      readln(d.existencia);

      write('  Entre Tipo         : ');

      readln(d.tipo);

      write('  Entre Precio Venta : ');

      readln(d.precio_vta);

   end;

  procedure presentadatos;

  begin

     clrscr;

     if (dato1 = true) and (dato2 = true) then

     begin

     writeln('***** Datos Guardados En Variables *****');

     writeln;

     writeln('<<<<<<< Contenido Variable Desodorante >>>>>>>>>');

     writeln(desodorante.codigo,'  ',desodorante.descripcion,'  ',

     desodorante.existencia,'  ',desodorante.tipo,'  ',desodorante.precio_vta:0:2);

     writeln;

     writeln('<<<<<<< Contenido Variable Lavandina >>>>>>>>>');

     writeln(lavandina.codigo,'  ',lavandina.descripcion,'  ',

     lavandina.existencia,'  ',lavandina.tipo,'  ',lavandina.precio_vta:0:2);

     writeln;

     writeln('******* Pulse Una Tecla *********');

     readkey;

    end

  else

     begin

        writeln('**** Variables Vacias Pulse Una Tecla ****');

        readkey;

     end;

  end;

  procedure menu;

  var

     sal : boolean;

     tec : char;

   begin

      dato1 := false;

      dato2 := false;

      sal := false;

    repeat

       clrscr;

       writeln('******* Menu Jeneral *******');

       writeln;

       writeln('   1 = Entrada Datos A Variables');

       writeln('   2 = Visializar Contenido Variables');

       writeln('   3 = Salir');

       writeln;

       writeln('>>>>>> Elija Opcion <<<<<<');

       repeat

           tec := readkey;

       until tec in['1','2','3'];

       clrscr;

   case tec of

 '1' : begin

          entradadatos(desodorante,'Desodorante');

          dato1 := true;

          entradadatos(lavandina,'Lavandina');

          dato2 := true;

       end;

 '2' : presentadatos;

 '3' : sal := true;

   end;

    until sal = true;

   end;

  begin

     menu;

  end.