Написать программу. В 3 символьные переменные а , в и с

Var
  a, b, c, s: string;

begin
  Write('Введите фамилию: '); Readln(a);
  Write('Введите имя: '); Readln(b);
  Write('Введите отчество: '); Readln(c);
  s := a + ' ' + b[1] + '.' + c[1] + '.';
  Writeln('Фамилия, И.О.: ', s)
end.

Тестовое решение:
Введите фамилию: Иванов
Введите имя: Петр
Введите отчество: Сергеевич
Фамилия, И.О.: Иванов П.С.