Pascal/Turbo Pascal - S,s -- N,n

gracias x la ayuda de la ves pasada pero surgio otro problema

cuando quiero hacer una condicion IF de una letra seria algo asi

IF S = 'S' then
begin
write('instrucciones');
write('instrucciones');
end
else
write('instrcciones')

pero cuando preciono por esjemplo "s" en minuscula no sale el mismo resultado

me comentaban que habia una forma para que "S,s" sean leidos de una misma forma
no se si alguien me puede ayudar gracias..

Hay varias formas de hacerlo:

if upcase(S) = 'S' then ...

ó

if S in ['S','s'] then ...

ó

if (S = 'S') or (S = 's') then ...

ó

S:=upcase(S);
if S = 'S' then...

aunque en este último caso la variable S se cambiará siempre a mayúscula, lo que puede ser un problema o no, dependiendo de la lógica de tu programa.

gracias yo se que esa pregunta era algo facil pero deverdad que no sabia

surgio algo

estoy haciendo una factura

ya tengo la mayouria del programa solo me falta algo

cuando estan ingresando los productos en la factura solo pueden entrar 3 productos con su cantidad y su precio pero cuando se llenan las 3 columnas tiene que preguntar si desea ingresar mas productos

ahi es donde esta mi duda

hay alguna forma de que cuando se acaben los 3 espacios se haga algo asi como un clearscreen pero sin borrar el marco para poder seguir ingresando los productos??

Sí, lo tienes que hacer a mano, un par de for creo que hará el trabajo.

Aunque en tu lugar habría utilizado ventanas (hablo del procedimiento window(), no el sistema operativo).