Заданы фамилия, имя и отчество учащегося, разделенные одним или несколькими пробелами. Напишите программу, печатающую фамилию ученика и его инициалы (инициал заканчивается точкой). После фамилии оставлять один пробел.

Входные данные: ввести строку с длиной не более 255 символов.

Выходные данные: вывести одну строку фамилию ученика и его инициалы (инициал заканчивается точкой).
Паскаль. Если не трудно с объяснением, заранее спасибо!

// PascalABC.NET 3.1, сборка 1174 от 22.02.2016begin  var s:=ReadlnString('Введите строку:');  var p:=Pos('.',s);  if p>0 then s:=Copy(s,1,p-1);  var a:=s.ToWords;  if a.Count=3 then begin    Writeln(a[0],' ',a[1][1],'.',a[2][1],'.')    end  else    Writeln('Неверно задана строка')end.Тестовое решение:Введите строку:      Иванов      Петр   Сергеевич.!!! Это лишнееИванов П.С.