Pascal/Turbo Pascal - limpiar pantalla?

esoty haciendo una factura
para eso tengo que hacer un marco, ya lo tengo hecho
y despues es ingresar datos
ahi es donde esta el problema
para no complicarme tanto lo hice con "repeat" y con una sentecia "if" entonces seria algo asi:

uses crt;
var a,b,c,d,S,N:char;
begin
repeat
clrscr;
writeln('Nombre'); readln(a);
writeln('Direccion'); readln(b);
writeln('NIT') readln(c);
writeln('Fecha'); readln(d);
write('¿Datos correctos S/N?'); readln(S,N);
if (S = 's') or (S = 'S') then
begin
writeln('asdhald');
end;
until (N = 'n') or (N = 'N');
readkey
end;

el problema es que como pongo "clrscr" borra todo y el marco tambien entonces no se como hacer para repetir sin borrar el marco?

tambien tengo otra pregunta como hago para que si el usuario presionada "N" o "n" termine inmediatamente?

gracias.

¿Por qué pides dos variables en el readln que está después de "'¿Datos correctos S/N?'"?

Manda llamar o pon tu marco dentro del repeat