По введенным фамилии, имени и отчеству выводит фамилию и инциалы - Free Pascal

Формулировка задачи:

нужна программа, которая по введенным ФАМИЛИИ, ИМЕНИ И ОТЧЕСТВУ ВЫВОДИТ фамилию и инциалы. помогите плиз

Решение задачи: «По введенным фамилии, имени и отчеству выводит фамилию и инциалы»

Листинг программы

var
fam,ima,otch:string;
BEGIN
writeln('Введите фамилию.');
readln(fam);
writeln('Введите имя.');
readln(ima);
writeln('Введите отчество.');
readln(otch);
writeln('Ф.И.О.: ',fam,' ',ima[1],'.',otch[1],'.');
readln;
END.

Объяснение кода листинга программы

Объявлены три переменные типа string: fam, ima, otch.
Выводится сообщение Введите фамилию..
Пользователь вводит значение переменной fam.
Выводится сообщение Введите имя..
Пользователь вводит значение переменной ima.
Выводится сообщение Введите отчество..
Пользователь вводит значение переменной otch.
Выводится сообщение Ф.И.О.: и значения переменных fam, ima, otch.
Программа ожидает нажатия клавиши для завершения работы.