Помогите, пожалуйста, решить задачу в Pascal: Определить число, полученное выписыванием в обратном порядке цифр заданного целого трёхзначного числа.

n := (n mod 10) * 100
+ (m div 10 mod 10) * 10
+ (m div 100 mod 10);

У меня не работает(((
Что неправильно у меня?

Program Obrat;
Uses Crt;
Var n,m:Integer;

Begin
Clrscr;
WriteLn('Определение числа,выписанного в обратном порядке');
WriteLn('Введите трехзначное число');
ReadLn(n);
n:=(n mod 10)*100+(m div 10 mod 10)*10+(m div 100 mod 10);

Writeln('Число в обратном порядке ', n);
ReadLn;
End.

M вообще откуда взялась? Должно быть так:

n:=(n mod 10)*100+(n div 10 mod 10)*10+(n div 100 mod 10);