Pascal/Turbo Pascal - De programa a programa...?

Hola, saludos a todos.

Como puedo hacer para llamar a ejecutarse un programa dentro de otro programa.

Gracias, saludos.

Observa este ejemplo:

{$M $4000,0,0 }
Program Ejecuta;
Uses Dos;

Var
ProgramName, CmdLine: String;
Begin
Write('Programa a ejecutar (Ruta completa): ');
ReadLn(ProgramName);
Write('Parámetros a pasar a ', ProgramName, ': ');
ReadLn(CmdLine);
WriteLn('Ejecutando programa...');
SwapVectors;
Exec(ProgramName, CmdLine);
SwapVectors;
WriteLn('...regresando después del Exec');
If (DosError <> 0) then { Error? }
WriteLn('Dos error #', DosError)
else
WriteLn('Código devuelto por el programa = ', DosExitCode);
End.

Espero te sea de utilidad. Saludos ;-)