Перевести на Паскаль

[makskovalko]

Помогите, пожалуйста, перевести на Паскаль:

@ echo off
setlocal enabledelayedexpansion

:: Вводим исходные данные
set /p n=N =
set /p x=X =
set /p y=Y =
set /p z=Z =

:: Инициализирцем массив цифр нулями
for /l %%i in (0,1,9) do set digit[%%i]=0

:: Считаем все цифры числа n
set cnt=0
:while
set /a d=n%%10, n/=10
if !digit[%d%]! equ 0 if %d% neq %x% if %d% neq %y% if %d% neq %z% set /a cnt+=1
set /a digit[%d%]+=1
if %n% gtr 0 goto while

:: Выводим ответ
echo %cnt%

pause