Сделать из числа 123 число 312 в pascal

ИЗИ
var
N1, N2 : Word;
begin
Write('Введите число: '); ReadLn(N1);
N2 := 0; while N1 > 0 do begin N2 := N2 * 10 + N1 mod 10; N1 := N1 div 10; end;
WriteLn('Перевёрнутый результат: ', N2);
end.