Вывести имя и количество букв в фамилии! Опции

[MAD-GTX]

Помогите пожалуйста решить задачу! Завтра показывать!

Ввести ФИО как одно данное строкового типа.
Вывести имя и количество букв в фамилии!

[volvo]

Ну, в принципе, можно также одной строкой сделать:

  writeln(
    copy( copy(fio, pos(' ', fio) + 1, length(fio)),
          1,
          pos(' ', copy(fio, pos(' ', fio) + 1, length(fio)))
    )
  );