Заданы фамилия, имя и отчество учащегося, разделенные одним или несколькими пробелами....

Question

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

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

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

Answer 1

// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
  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.

Тестовое решение:
Введите строку:      Иванов      Петр   Сергеевич.!!! Это лишнее
Иванов П.С.