В тех словах, которые оканчиваются сочетанием букв “ing”, заменить это окончание на “ed”.

[Sh@rky]

Дана строка символов. В тех словах, которые оканчиваются сочетанием букв “ing”, заменить это окончание на “ed”.

Есть код этой задачи в делфи, но мне ее как то нужно в паскаль перевести, помогите пожалуйста.

program Strochki;
{$APPTYPE CONSOLE}
uses
  SysUtils,StrUtils;
 
var
  str:string;
  i,j:integer;
  next:boolean;
begin
  WriteLn('Input string');
  ReadLn(str);
  next:=true;
  i:=1;
  while next do
    begin
      if (posex('ing',str,i)>0) and ((posex('ing',str,i)+2=Length(str)) or (str[posex('ing',str,i)+3] in ['.',',',' ',':',';','!','?'])) then
        begin
          j:=posex('ing',str,i);
          i:=j;
          delete(str,j,3);
          insert('ed',str,j);
        end
      else
        next:=false;
    end;
  WriteLn(str);
  ReadLN;
end.

[Alex Cones]

Program A080;
Var
 S : string;                             {Входная строка}
 I : Byte;                               {Счетчик. Byte, потому, что String в TP = String[255]}
Begin
 Writeln('Введите строку');              {Да, прямо сейчас введите}
 ReadLn(S);                              {Надо же, послушался - ввел}
 S := S +' '; {Так надо}
 While Pos('ing ', S) <> 0 Do            {Обратите внимание на пробел после ''ing''}
  Begin
   Delete(S, Pos('ing ', S), 3);         {Выкинем бредовый окончания! Долой их!}
   Insert('ed', S, Pos('ing ', S));      {И вставим еще бредовей}
  End;
 Writeln(S);                             {Вот ваша строка, подавитесь!}
End.

По идее должно работать.

[Sh@rky]

эх.. работать то работает, только немного не так..

[Serge_Bliznykov]

   Delete(S, Pos('ing ', S), 3);         {Выкинем бредовый окончания! Долой их!}
   Insert('ed', S, Pos('ing ', S));      {И вставим еще бредовей}

э нет... после удаления подстроки, куда же вставлять?!
как то так надо:

...
   j := Pos('ing ', S);
   Delete(S, j, 3);       {Выкинем бредовый окончания! Долой их!}
   Insert('ed', S, j);     {И вставим еще бредовей}

[Sh@rky]

вооо!!! Спасибо большое!!!

[Sh@rky]

Сообщение от Alex Cones

 S := S +' '; {Так надо}

По идее должно работать.

для чего плюс с пробелом нужен после S?

[Alex Cones]

Инае будет искаться ing в середине слова.

[eoln]

Не... искаться в середине (али ещё где) будет если пробел не поставить в

While Pos('ing ', S) <> 0 Do            {Обратите внимание на пробел после ''ing''}

А S := S +' '; {Так надо} нужно для страховки - вдруг последнее слово кончается на "ing", а пробела в конце предложения нет.

[.kbz]

Как правильно в яву переделать этот код?