[droguerman]

estas poniendo un if sin acción mejor quedaria haciendo esto

Código Delphi [-]
if (op<0) or (op>4) then
begin
  writeln('La opción no es correcta, escoja otra opcion.');
  continue; //repetir el bucle
end;

case op of
  1: Leer_datos;
  2: Modificar_datos;
  3: Puntualidad;
  4: Porcentaje;
end;