В данной ситуации Вы не имеете права рассуждать о чужом труде уже хотя бы потому, что сами неспособны эти две строки ни написать, ни понять, как теперь выяснилось. И ведете себя при этом, как зарвавшийся нахал.

Порядочные люди, получив ответ, даже если он не соответствует их ожиданиям (по их собственной вине) говорят "спасибо".

Да какие проблемы?

var
s, fam, im, ot: string;
k: integer;

begin
readln(s);
//s := 'Иванов Иван Иванович';
writeln('Длина: ', Length(s));
k := pos(' ', s);
fam := copy(s, 1, k);
delete(s, 1, k);
k := pos(' ', s);
im := copy(s, 1, k);
delete(s, 1, k);
ot := s;
writeln('Отчество: ', ot);
writeln('Имя: ', im);
writeln('Фамилия: ', fam);
end.

Ещё вопросы кусок говна?