[fofka]

Alegum, исправил как Вы предложили сократил код.

Код:

function f(a: string): string;
begin
 Result:= Copy(a, 1, Pos(' ', a));
 Delete(a, 1, Pos(' ', a));
 Result:= Result + a[1] + '.';
 Delete(a, 1, pos(' ', a));
 Result:= Result + a[1] + '.';

Работает прекрасно.
Спасибо за помощь в вопросе.