отредактирование предложения

[Ника-Вероника]

Отредактируйте заданное предложение, заменяя многоточия точкой, а вместо точки ставьте восклицательный знак.
помогите пожалуйста

[whatever]

var
  i:integer;
  s:string
begin
  readln(S);
  i:=length(s);
  while i>=1 do
    begin
      if (s[i]='.') and (s[i-1]='.') then
        begin
          delete(s,i,1);
          dec(i);
          if s[i-1]<>'.' then
            dec(i);
          continue;
        end;
      if (s[i]='.') then
        begin
          delete(s,i,1);
          insert('!',s,i);
          dec(i);
          continue;
        end;
      dec(i);
    end;
  writeln(S);
  readln;
end.

[Ника-Вероника]

Большое спасибо. Я эту задачу решала другими способами, они работали только наполовину.

[skyll]

Вот более проще пример, если еще пригодится:

uses crt;
var
   str, str1: string;
   i: integer;
begin
     write('Enter Text: ');
     readln(str);
     str1 := '';
     for i := 1 to length(str) do begin
         {if str[i] = '.' then
            if str[i+1] = '.' then
               if str[i+2] = '.' then begin
                  str1 := str1 + '.';
                  i := i + 2;
               end
               else str1 := str1 + '!'
            else str1 := str1 + '!'
         else str1 := str1 + str[i]; }
         if (str[i] = '.') and (str[i+1] = '.') and (str[i+2] = '.') then begin
            str1 := str1 + '.';
            i := i + 2;
         end
         else
             if str[i] = '.' then
                 str1 := str1 + '!'
             else
                 str1 := str1 + str[i];
     end;
     writeln;
     write(str1);
end.

[Sasha_Smirnov]

В реале многоточие — это обычно один символ: chr(133): …

[whatever]

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

В реале многоточие — это обычно один символ: chr(133): …

Во-первых, дэлфи на это:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

begin
  writeln(chr(133));
  readln
end.

выдал знак вопроса

Во-вторых, если символ "..." и существует, то это троеточие, а не многоточие.

[Ника-Вероника]

Всем большое спасибо. Все понадобится. Хочу во всем разобраться и чему-то научиться.

[Вадим Мошев]

Whatever

Во-вторых, если символ "..." и существует, то это троеточие, а не многоточие.

Да, есть такой символ "…".

Да и потом:

то это троеточие, а не многоточие.

Это не одно и то же?

[whatever]

Сообщение от Вадим Мошев

Это не одно и то же?

Ну задание у нас "Отредактируйте заданное предложение, заменяя многоточия точкой, а вместо точки ставьте восклицательный знак."

Если троеточие и многоточие одно и тоже, то строку вида

S:='qwe...qwe..qwe....qwe.qw.'

нужно преобразовать в

S:='qwe.qwe!!qwe.!qwe!qw!'

Я же предположил, что правильнее будет

S:='qwe.qwe.qwe.qwe!qw!'

Впрочем не настаиваю, возможны оба варианта.

Update: погуглил, действительно, троеточие и многоточие это одно и тоже. Однако для данной задачи настаиваю на своем решении