Составить программу,которая выводит на экран фамилию и инициалы,введенные с клавиатуры

Var F, i, o:string[50];
begin
readln(F);
readln(i);
readln(o);
write(F, ' ', i[1], '. ', o[1], '. ');
end.