Замениьть ФИО на Ф и инициалы (TurboPascal)

[Stilet]

Встречаются подряд три слова с большой буквы. Вот это и есть условие.

Билли Джо Армстронг - основатель общества имени Билли Джо Армстронга.

Или ты думаешь что на тестах подобного не дадут?

[VladKB1]

Сообщение от Stilet

Или ты думаешь что на тестах подобного не дадут?

Ребята я поц .

Вот тут взял и закончил цикл когда нашёл 3 слова с заглавной буквой:

 if x = 3 then                                           
   for J:=1 to x-1 do  //Вот здесь была i а надо новую переменную взять. Ой как протупил...                                 
   begin
    delete(s,k[i]+1,length(t[i])-1);                
    insert('.',s,k[i]+1);                                
   end;

Stielet Большое спасибо!

Тут уже вроде как всё учтенно или я ещё где-то протупил?

[VladKB1]

Зада прошла все тесты! Правда там не много по менял коечто... огромное спасибо Stilet-у