[Igor]

s:string;
i:integer;
x1,x2:boolean;
function ifcifra(s[i]):boolean;
Функцию придётся писать самому, возвращает true если параметр-char является цифрой.
if ((s<>'') and( lenght(s)>2)) then
begin
i:=1;
repeat
//если один символ цифра, а второй - нет, или наоборот
if (ifcifra(s[i]) xor ifcifra(s[i+1])) then
begin
добавляем пробел между i и (i+1);
//не помню как с текстом работать
i:=i+1;
end;
i:=i+1;
until i=>lenght(s-1);
end;
P.S. как работает не проверял