нужно удалить все запятые между 2-мя точками

[Ekzamenator]

var s: string;           
    point1,point2: integer;  

begin
  ReadLn(s);                  
  point1:=pos('.',s);          
  if point1=0 then WriteLn('Точек в строке нет!')      
  else begin
    point2:=length(s);                   
    While s[point2]<>'.' do dec(point2);  
    if point2=point1 then WriteLn('В строке всего одна точка!'); 
begin
  while (s[point2]<>',') and (point2>point1) do dec(point2);
  if point1<>point2 then delete(s,point2,1);
end;

не пойму почему только одну точку удаляет а не все подскажите пожалуйста



________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Serge_Bliznykov]

так подойдёт?

var s: string;
  point1, point2: integer;

begin
  ReadLn(s);
  point1 := pos('.', s);
  if point1 = 0 then WriteLn('Точек в строке нет!')
  else begin
    point2 := length(s);
    while s[point2] <> '.' do dec(point2);
    if point2 = point1 then WriteLn('В строке всего одна точка!');
    begin
      while point2 > point1 do begin
        if s[point2] = ',' then delete(s, point2, 1);
        dec(point2);
      end;
    end;
  end;
  WriteLn(s);
end.

p.s.
поясню чуток...
у вас же условие на проверку запятой было в условие цикла вынесено.
ПОэтому цикл заканчивался или когда pont2 становилось равной point1 (это когда запятых нет между точками)
или когда встретилась запятая. Цикл в этом случае - прерывался. А это Вам не нужно было делать.

[Ekzamenator]

Круто!Огромное спасибо!!Особенно за пояснение!

[Ekzamenator]

Сейчас попробовал сдать эту лабу, говорит что неправильно задавать таким образом

   point2 := length(s);

мол мы позицию второй точки берем за длину строки

[BDA]

Ну так Вы бы ему объяснили, что идете с конца строки в поисках точки.

[Sciv]

нужно удалить все запятые между 2-мя точками

Что, ОПЯТЬ?!

Каждый год одна и та же задача