Как вывести первые иницыалы фамилии,имени,отчества в паскале

Предыдущий
вопрос Следующий
вопрос

Для вывода первых инициалов фамилии, имени и отчества в Паскале, можно воспользоваться следующим кодом:

program Initials;
var
surname, name, middleName: string;
begin
writeln('Enter your surname:');
readln(surname);
writeln('Enter your name:');
readln(name);
writeln('Enter your middle name:');
readln(middleName);
writeln('Initials: ', surname[1], '.', name[1], '.', middleName[1], '.');
end.

Данный программный код запрашивает у пользователя ввод фамилии, имени и отчества, после чего выводит первые буквы каждого слова с точками между ними.

Пример ввода/вывода:

Enter your surname:
Ivanov
Enter your name:
Ivan
Enter your middle name:
Ivanovich
Initials: I.I.I.