Pascal/Turbo Pascal - procedimiento revisar_findatos

procedure revisar_datos (var sigue:bolean);

var

	respuesta: char;

Begin

	           repeat

                   writeln ('Desde ingresar datos, S/N ');

		   readln  (respuesta);

		   until ((respuesta='s') or (respuesta='n'));

		   if respuesta=s then

		   respuesta := true;

end.

{Mira esto y prueba lo}

uses

   crt;

  var

    sigue : boolean;

 procedure revisar_datos (var sigue:boolean);

 var

   respuesta : char;

   Begin

     repeat

      writeln ('Desde ingresar datos, S/N ');

      readln (respuesta);

     until ((respuesta='s') or (respuesta='n'));

     {Esto no puede ser la variable no es booleana}

     {if respuesta = 's' then

     respuesta := true;}

     {Seria asi}

     if respuesta = 's' then

     sigue := true;

     {Pero problema si esta activado las mayúsculas mal}

   end;

   {Mira esto}

   function revisar_datos2 : boolean;

   var

     respuesta : char;

    begin

       repeat

        writeln ('Desde ingresar datos, S/N ');

        respuesta := upcase(readkey);

       until (respuesta = 'S') or (respuesta = 'N');

       if respuesta = 'S' then

       revisar_datos2 := true

     else

       revisar_datos2 := false;

    end;

   begin

       {Prueba las dos opciones s y n}

       clrscr;

       revisar_datos(sigue);

       writeln(' Tu Resultado = ',sigue);

       writeln;

       writeln(' El Otro Resultado = ',revisar_datos2);

       readln;

   end.