Для этого можно воспользоваться следующим кодом на языке Pascal:

program FirstLetters;
var
fullName, surname, name, patronymic: string;
begin
writeln('Введите ФИО через пробел:');
readln(fullName);
surname := copy(fullName, 1, pos(' ', fullName) - 1);
delete(fullName, 1, pos(' ', fullName));
name := copy(fullName, 1, pos(' ', fullName) - 1);
delete(fullName, 1, pos(' ', fullName));
patronymic := copy(fullName, 1, length(fullName));
writeln('Первые буквы фамилии, имени и отчества:');
writeln(copy(surname, 1, 1));
writeln(copy(name, 1, 1));
writeln(copy(patronymic, 1, 1));
end.

При запуске программы пользователю будет предложено ввести полное ФИО через пробел. Затем программа разделит ФИО на фамилию, имя и отчество, и выведет первые буквы каждого из них.