Запуск Turbo Pascal с файлом, заданным через аргумент

if exist %1 (
start turbopascal.exe %1
) else (
echo Ошибка: файл не существует или не задан параметр
)

@echo off
SetLocal EnableExtensions EnableDelayedExpansion
chcp 866>nul
set "TPath=C:\windows\notepad.exe"&: В " " - путь до исполняемого файла Turbo Pascal, сейчас до Блокнота для теста
set "str1=Файл не существует"
set "str2=Файл не является проектом Pascal"
::
if "%~1"=="" (echo. Не задан параметр, окончание работы &pause &exit)
:: Main
set "PAS=%~1"
call :ExistPAS "%PAS%"||(call set strErr=%%str!errorlevel!%% &echo.   !strErr! &echo.   Для продолжения нажмите любую^* клавишу... &pause>nul &exit)
start "" "%TPath%" "%PAS%
exit
:: end Main
:ExistPAS [Параметр - путь к .pas файлу]
set err=0
for %%F in ("%~1") do (
    if not exist "%%F" exit /b 1
    if /i "%%~xF" NEQ ".pas" exit /b 2
)
exit /b

@echo off
chcp 866>nul
::Тут путь до исполняемого файла Turbo Pascal, сейчас до Блокнота для теста
set "TPath=C:\windows\notepad.exe"
::
if "%~1"=="" (
echo. Не задан параметр, окончание работы
pause
goto :EOF
)
if not exist "%~1" (
echo. Файл не существует
pause
goto :EOF
)
if /i "%~x1" NEQ ".pas" (
echo. Файл не является проектом Turbo Pascal
pause
goto :EOF
)
start "" "%TPath%" "%~1"