Pascal/Turbo Pascal - repeat con sentencia if

tengo un problema y esque tengo que repetir un proceso pero la forma mas facil de hacerlo es con repeat

es una factura y cuando pregunta si los datos estan correctos si da "S" tiene que pasar a la siguiente parte de la factura y si pone "N" tiene que volver a ingresar los datos lo que viene despues no es el problema pero no encuentro la sintaxis correcta para el editor de pascal me hacepte lo que yo quiero hacer alguien me puede ayudar solo dandome ideas de como puede ir la sintaxis...

gracias

ehhh perdon acepte con "H"

No comprendo bien el problema así que respondo según me parece.

function DatosCorrectos: char;
var
a: char;
begin
repeat
Write('¿Datos Correctos? (S,N) ');
a:=upcase(readkey);
until (a = 'S') or (a = 'N');
DatosCorrectos := a;
end;

repeat
{ Aquí el ingreso de datos }
until DatosCorrectos = 'S';