[Pascal] Удаление символов из строки

[just4smth]

Задание:

Удалить из текста все запятые.

Реализация:

Program var15_stroki;
Uses crt;
Var s:string;
    i,endstr:integer;

Begin
        clrscr;
        Writeln('Введите строку');
        Readln(s);
        endstr:=Length(s);
        for i:=1 to endstr do
           if s[i]=',' then
           Delete(s,i,1);
        Writeln(s);

        Readln;
End.

Однако, если заменяемые символы стоят подряд, то удаляется только первый. Как это исправить?

[MyLastHit]

Наверное проще бы было здесь так:

for i:=1 to endstr do
  if s[i]<>',' then
  s1:=s1+s[i];

Если повнимательнее присмотритесь к своему циклу, то поймете, что размер строки после каждой найденной запятой уменьшается. За счет этого происходит смещение

[just4smth]

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

Наверное проще бы было здесь так:

for i:=1 to endstr do
  if s[i]<>',' then
  s1:=s1+s[i];

Если повнимательнее присмотритесь к своему циклу, то поймете, что размер строки после каждой найденной запятой уменьшается. За счет этого происходит смещение

Большое спасибо, сам бы точно не додумался до такого.

[Alex11223]

Так происходит потому что строка уменьшается на 1 символ и вы "перепрыгиваете" его.
У меня получился только вот такой костыль (войдет в бесконечный цикл если запятая - последний символ строки):

for i:=1 to endstr do
           if s[i]=',' then
           begin
              Delete(s,i,1);
              i:=i-1;
              endstr:=endstr-1;
           end;

upd: а, уже выше нормальный вариант

[just4smth]

У меня получился только вот такой костыль (войдет в бесконечный цикл если запятая последний - символ строки):

for i:=1 to endstr do
           if s[i]=',' then
           begin
              Delete(s,i,1);
              i:=i-1;
              endstr:=endstr-1;
           end;

К стати всё равно не все удаляются
UPD: А скобки поставил, вообще с ошибкой выполняется.

[Alex11223]

У меня все удаляется из строка вида afff,,fd,,,ffd,,f,f

[just4smth]

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

У меня все удаляется из строка вида afff,,fd,,,ffd,,f,f

Program var15_stroki;
Uses crt;
Var s,snew:string;
    i,endstr:integer;

Begin
        clrscr;
        Writeln('Введите строку');
        Readln(s);
        endstr:=Length(s);
        for i:=1 to endstr do
           if s[i]=',' then
           begin
              Delete(s,i,1);
              i:=i-1;
              endstr:=endstr-1;
           end;
        Writeln(s);

        Readln;
End.

123.pas(15,21) Error: Illegal assignment to for-loop variable "i"

Строку с ошибкой выделил красным.

[Alex11223]

Вероятно не все компиляторы это воспринимают нормально ) (собственно об этом и говорит эта ошибка)

[MyLastHit]

Нельзя в цикле for изменять счетчик.

[Alex11223]

Некоторые компиляторы позволяют это сделать (у меня Free pascal 1.0.6).