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

[VladKB1]

Всем привет!
Я решил одну задачку, и есть сомнения, что она не пройдёт все тесты (протестировать смогу в пятницу). Вот условие и код:

Письмо

Дан текст-письмо, состоящий из одного или нескольких предложений на русском языке с возможными лидирующими и концевыми пробелами.
Каждое предложение содержит слова, разделённые пробелами, начинается с большой буквы и заканчивается точкой.
Других знаков препинания в предложениях нет. В письме могут встречаться имена собственные вида Фамилия Имя Отчество.

Замените все включения Фамилия Имя Отчество на Фамилия Инициалы.

Формат ввода: одна строка с исходным письмом.
Формат вывода: одна строка с откорректированным письмом.

input.txt
Прошу передать пламенный привет Иванову Ивану Ивановичу.

output.txt
Прошу передать пламенный привет Иванову И.И.

//Также ФИО может стаять где у годно в предложении.

Вот мой код:

 var
 s: string;
 c,k: array [1..3] of longint;
 t: array [1..3] of string;
 i,j,x,l: longint;
begin
 assign(input,'input.txt');
 reset(input);
 assign(output,'output.txt');
 rewrite(output);

 readln(s);
 s:=' '+s+' ';
 for i:=length(s)-1 downto 2 do                      //делаю цикл от конца предложения
 if (s[i] <> ' ') and (s[i] <> '.') then
 begin
  if (s[i+1] = ' ') or (s[i+1] = '.') then l:=i;     //если нашёл конец слова( так как цикл от конца предложения) слова заношу в l значение i
  if (s[i-1] = ' ') then                                   //если нашёл начало слова( так как цикл от конца предложения) то:
  begin
   if (s[i] >= #128) and (s[i] <= #159) then  // Смотрю или первая буква слова не большая (ФИО пишется с большой буквы)
   begin                  
    inc(x);                                
    c[x]:=l;                                              // В массив c заношу число на котором заканчивается слово
    k[x]:=i;                                               //В массив k заношу на число на котором начинается слово
    t[x]:=copy(s,i,c[x]-i+1);                          //В массив t заношу слово
   end
   else
   begin                                                     // если не большая буква, то всё обнуляю
    x:=0;
    for j:=1 to 3 do c[j]:=0;
    for j:=1 to 3 do t[j]:='';
    continue;
   end;
   if x = 3 then                                           //если у нас будет 3 слова подряд с большой буквы,то значит это ФИО
   for i:=1 to x-1 do                                    // (Слова расположенны задам на перёд, тоесть Отчество, Имя, Фамилия)
 //От отчества до имени  (Фамилию трогать не надо) делаю
   begin
    delete(s,k[i]+1,length(t[i])-1);                 //Удоляю Всё кроме инициала
    insert('.',s,k[i]+1);                                //ставлю перед ним точку
   end;
  end;
 end;
 for i:=length(s)-1 downto 2 do
 if (s[i] = '.') and (s[i-1] = '.') then             //Заглушка если ФИО в конце (а в конце должна быть точка)
 begin
  delete(s,i,1);
  break;
 end;
 delete(s,1,1);                                       //Удоляю пробелы в начале и конце
 delete(s,length(s),1);
 writeln(s);
end.                                                    //Всё :)

Моя прозьба заключается в том, что бы мне ответели правильно ли я решли задачу или где-то что-то не учёл.

Всем зарание спасибо!

[Stilet]

"Да здравствует Победа Великая !!!" - орала пьяная Победа Сталинова на лавочке ночью.
Внимание вопрос: Как твой код отработает сие предложение?

[Dvoishnik]

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

. В письме могут встречаться имена собственные вида Фамилия Имя Отчество.

Замените все включения Фамилия Имя Отчество на Фамилия Инициалы.

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

"Да здравствует Победа Великая !!!" - орала пьяная Победа Сталинова на лавочке ночью.
Внимание вопрос: Как твой код отработает сие предложение?

заданием разве предусмотрены другие имена собственные? и

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

Победа Сталинова

явно противоречит формату задания.

[VladKB1]

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

"Да здравствует Победа Великая !!!" - орала пьяная Победа Сталинова на лавочке ночью.
Внимание вопрос: Как твой код отработает сие предложение?

Предложение должно начинаться с большой буквы и заканчиваться на точку больше знаков нет. Вот это предложение "Да здравствует Победа Великая. Орала пьяная Победа Сталинова на лавочке ночью. " выводит не правильно . Выводит так "Да здравствует Победа В. О. пьяная Победа Сталинова на лавочке ночью.

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

Мне типо если точка встретилась, то обнулить х ? да?

[VIK_aka_TOR]

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

Предложение должно начинаться с большой буквы и заканчиваться на точку больше знаков нет. Вот это предложение "Да здравствует Победа Великая. Орала пьяная Победа Сталинова на лавочке ночью. " выводит не правильно . Выводит так "Да здравствует Победа В. О. пьяная Победа Сталинова на лавочке ночью.

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

Мне типо если точка встретилась, то обнулить х ? да?

обнулять после любого разделителя, и наверное брать в массив только если 3 слова ПОДРЯД идут с заглавной буквы (Не думаю что уместо делать сокращение И.О. когда они поразнь встречаются).

[Stilet]

явно противоречит формату задания.

Да чего так?

И как мне это исправить?

А вот это хороший вопрос. Я врядли на него отвечу другими словами кроме ИИ.

[VladKB1]

Всё исправил эту проблему теперь оно из этого Да здравствует Победа Великая. Орала пьяная Победа Сталинова на лавочке ночью.
Выводит это Да здравствует Победа Великая. Орала пьяная Победа Сталинова на лавочке ночью. Также должно быть? Или я запутался?
Теперь правильно решена?

var
 s: string;
 c,k: array [1..3] of longint;
 t: array [1..3] of string;
 i,j,x,l: longint;
begin
 assign(input,'input.txt');
 reset(input);
 assign(output,'output.txt');
 rewrite(output);

 readln(s);
 s:=' '+s+' ';
 for i:=length(s)-1 downto 2 do
 if (s[i] <> ' ') and (s[i] <> '.') then
 begin
  if (s[i+1] = ' ') or (s[i+1] = '.') then l:=i;
  if s[i+1] = '.' then
  begin                                 //Добавил условие если нам встретится точка, то мы всё обнулим
   x:=0;
   for j:=1 to 3 do c[j]:=0;
   for j:=1 to 3 do t[j]:='';
   continue;
  end;
  if (s[i-1] = ' ') then
  begin
   if (s[i] >= #128) and (s[i] <= #159) then
   begin
    inc(x);
    c[x]:=l;
    k[x]:=i;
    t[x]:=copy(s,i,c[x]-i+1);
   end
   else
   begin
    x:=0;
    for j:=1 to 3 do c[j]:=0;
    for j:=1 to 3 do t[j]:='';
    continue;
   end;
   if x = 3 then
   for i:=1 to x-1 do
   begin
    delete(s,k[i]+1,length(t[i])-1);
    insert('.',s,k[i]+1);
   end;
  end;
 end;
 for i:=length(s)-1 downto 2 do
 if (s[i] = '.') and (s[i-1] = '.') then
 begin
  delete(s,i,1);
  break;
 end;
 delete(s,1,1);
 delete(s,length(s),1);
 writeln(s);
end.

[Stilet]

Также должно быть?

Замените все включения Фамилия Имя Отчество на Фамилия Инициалы.

ИМХО эта задача при такой постановке не решаемая вообще...

[Аватар]

В письме могут встречаться имена собственные вида Фамилия Имя Отчество.

Замените все включения Фамилия Имя Отчество на Фамилия Инициалы.

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

[VladKB1]

Дак мой код вероятнее всего пройдёт все тесты или нет?