Составить программу замены местами цифр двухзначного числа срочно-найдите

//Pascal

var N: byte;
begin
  write('Введите двузначное число = '); readln(N);
  writeln(N mod 10, N div 10);
  readln;
end.