Пример программы на Pascal:

program Initials;
var
fullName, initials, surname: string;
spacePos: integer;
begin
writeln('Введите фамилию, имя и отчество человека: ');
readln(fullName);
spacePos := pos(' ', fullName); // находим позицию первого пробела
if spacePos > 0 then
begin
initials := copy(fullName, 1, 1) + '.' + copy(fullName, spacePos + 1, 1) + '.'; // составляем инициалы
surname := copy(fullName, spacePos + 3, length(fullName)); // получаем фамилию
writeln('Инициалы и фамилия: ', initials, ' ', surname);
end
else
writeln('Ошибка ввода');
readln;
end.

После запуска программы вам нужно будет ввести строку, содержащую фамилию, имя и отчество человека, например "Иванов Иван Иванович". Программа построит новую строку с инициалами и фамилией: "И.И. Иванов".