Результат на Pascal

[sashx8]

Программисты, помогите с одной задачей...
Вот условия задачи:
Дано трехзначное число. Найти число, полученное при перестановки второй и третьей цифр заданного числа
Вот код на Assembler:

Сообщение от skaa

Результат будет в eax.
[ASM] mov eax,123
mov edx,0
mov ecx,10
div ecx
mov ebx,edx
xchg eax,ebx
mov ecx,10
mul ecx
xchg eax,ebx

mov edx,0
mov ecx,10
div ecx
add ebx,edx

mov ecx,100
mul ecx
add eax,ebx[/ASM]

Как вставить код в Free Pascal, я вставляю он выдает ошибки(
А мне нужен чтобы результат был на Pascal

[zhan313]

Такой вариант подойдет ?

{$asmmode intel}
var a:longint;
begin
a:=123;
writeln(a);
ASM
mov eax,a
mov edx,0
mov ecx,10
div ecx
mov ebx,edx
xchg eax,ebx
mov ecx,10
mul ecx
xchg eax,ebx

mov edx,0
mov ecx,10
div ecx
add ebx,edx

mov ecx,100
mul ecx
add eax,ebx
mov a,eax
end;
writeln(a);
end.