Расставить все точки над ...

[gleensande]

Есть задача: расставить после каждого значения 'kg' в строке s3 точку, если раньше ее там не было. Почему-то, при выполнении данной программы, новая строка не выводится. Ошибок я не вижу, но явно что-то делаю не так, поэтому прошу совета знатоков (т.е. вас). Помогите, пожалуйста!

program pr5_4;
const 
  s1='.';
  s2='kg';
var
  s3: string;
  n,l: integer;
begin
  write('Enter ');
  readln(s3);
  l:=length(s3);
  while pos(s2,s3)>0 do
    begin
      n:=pos(s2,s3);
      if (n+2>l)or(s3[n+2]<>'.') then 
        begin
          insert(s1,s3,n+2); 
          l:=l+1;
        end;  
    end;
  writeln(s3);

end.

[Aleksandr H.]

имхо, логика хромает. Вы в цикле проверяете есть ли кг в строке и если есть, то вставляете ".", но...кг то остается в строке, а, значит, цикл будет бесконечным.
Вариант:

uses crt;
var s3,st,s:string;
i:integer;
begin
clrscr;
write('ST: ');readln(st);
i:=1;
s:='';
{st:=st+'  ';}
repeat
   s:=copy(st,i,2);
   if (s='kg') and (st[i+2]<> '.') then  begin s3:=s3+s+'.'; inc(i,2) end
   else
   if (s='kg') and (st[i+2]='.') then begin s3:=s3+s+'.'; inc(i,3) end
   else begin s3:=s3+s; inc(i,2) end
until i>length(st);{-1;}
writeln(s3);
readln;
end.

[gleensande]

Да, затупила чутка ._. Премного благодарю)