дано вещ-ое число.
в нем нужно понменять местами цифры из дробной и целой части
например,так:123,456---->124,356
не подскажете,как это сделать?

Переводи число в строку -> меняй местами -> переводи строку в число.

как вариант, хотя можно и без строки попробовать ...

Например, так:

...
  x := 10 * (trunc(x) div 10) + trunc(10*frac(x)) +
       0.1 * ((trunc(x) mod 10) + frac(10 * frac(x)));
...