Прошу перевести программу с Pascal

Program Rebus;
Type mn = Set Of 0..9;
Var m,y,x,a: 0..9;              {цифры числа МУХА}
n1,n2: Integer;             {числа МУХА и СЛОН}
a1,a2,a3,a4: 0..9;            {цифры числа СЛОН}
s1, s2:mn;          {для хранения цифр каждого из чисел}
Procedure Print(x,y:Integer);   {вывод решения в виде ребуса}
Begin
Writeln(x:5);
Writeln('+');
Writeln(x:5);
Writeln('___');
Writeln(y:5);
End;
Begin
s1:=[ ]; s2:=[ ];
For m:=1 To 4 Do
Begin
s1:=s1 + [m];         {заносим первую использованную цифру}
For y:=0 To 9 Do    {если эта цифра не была еще взята, то} {добавляем ее во множеств цифр числа МУХА и} {выбираем цифру для следующей буквы}
If Not (y In s1) Then
Begin
s1:=s1+[y];
For x:=0 To 9 Do
If Not (x In s1) Then
Begin
s1:= s1 + [x];
For a:=1 To 9 Do
If Not (a In s1) Then
Begin
s1:=s1+[a];
n1:=1000*m+100*y+10*x+a;  {число для слова МУХА}
n2:=2*n1;               {число для слова СЛОН}
a1:=n2 Div 1000;        {выделяем цифры СЛОНа}
a2:=n2 Div 100 Mod 10;
a3:=n2 Div 10 Mod 10;
a4:=n2 Mod 10;
s2:=[a1,a2,a3,a4];      {множество цифр СЛОНа}
{если слова состоят из разных цифр и в слове СЛОН нет одинаковых, то выводим решение ребуса на экран}
If(s1*s2=[]) And ([a1]*[a2]*[a3]*[a4]=[ ])
Then Print(n1,n2);
s1:=s1-[a];     {удаляем занесенную цифру}
End;
s1:=s1-[x];
End;
s1:=s1-[y];
End;
s1:=s1-[m];
End;
Readln;
End.