Как в pascal abc одной программой запустить другую?

посмотри в help'е функцию exec. у  меня turbo pascal поэтому пример оттуда

program startapl;  

{$m $4000, 0, 0 } { 16kб стек, нет кучи }uses crt, dos; var programname, cmdline : string; begin

    clrscr;       write('имя программы для запуска (с путём) : ');     readln(programname);     write('параметры командной строки ', programname, ' : ');     readln(cmdline);     writeln('пробую ');     swapvectors;     exec(programname, cmdline);     swapvectors;     writeln(' вернулся из exec'); { была ошибка ? }  if doserror < > 0 then  writeln('ошибка dos #', doserror)        else   writeln('запуск был удачным. код выхода = ', dosexitcode); end.

НЕТ

Объяснение:

Ветвление исполняется только 1 раз(то есть если условие соблюдается, то вправо если нет, то влево), а цикл используется для повторных входов