Строки (Pascal)

[Whitecoat]

Пожалуйста, помогите написать программу, которая позволяет ввести строку, содержащую фамилию, имя и от-чество студента, разделенные пробелами. Программа должна выводить фамилию студента и его инициалы и подсчитывать количество символов во введенной и выведенной строках.

Заранее спасибо)

[Stilet]

 var f,i,o:String;
begin
 readln(o);
 f:=copy(o,1,pos(' ',o));delete(o,1,pos(' ',o));
 i:=copy(o,1,pos(' ',o));delete(o,1,pos(' ',o));
 writeln(f+' ',i[1]+'.',o[1]+'.');
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Кол-во символов даст функция Length()