Определить фамилию и иницицалы по полному ФИО

Ввести с клавиатуры в одну строку фамилию, имя и отчество, разделив их пробелом. Вывести фамилию и инициалы.
Пример:
Иванов Петр Семёнович
П. С. Иванов

Исходный код на языке Pascal
var
  s, k, m: string;
  n, i: integer;

begin
  writeln('Введите фамилию, имя, отчество');
  read(s);
  n := pos(' ', s);
  k := s[n + 1] + '.';
  m := copy(s, 1, n - 1);
  s[n] := '1';
  i := pos(' ', s);
  k := k + s[i + 1] + '.';
  write(k, m);
end.