Поменять местами первую и последнюю , вторую и предпоследнюю и т.д цифры числа

[Kat9]

Поменять местами первую и последнюю , вторую и предпоследнюю и т.д цифры числа.

[Stilet]

function exch(i:integer):integer;
var a:array[1..4] of integer;
begin
 a[1]:=i mod 10; i:=i div 10;
 a[2]:=i mod 10; i:=i div 10;
 a[3]:=i mod 10; i:=i div 10;
 a[4]:=i;
 exch:=a[4]+a[3]*10+a[2]*100+a[1]*1000;
end;

[Kat9]

Спасибки))