Дана строка символов.Преобразовать строку,заменив в ней каждую из групп стоящих рядом точек одной точкой

[V I K T O R I Y A]

Дана строка символов.Преобразовать строку,заменив в ней каждую из групп стоящих рядом точек одной точкой

[DM_bite]

program Xd;
var s:string;
    begin
    ReadLn(s);
    while pos('..',s)>0 do delete (s, pos('..',s), 1);
     WriteLn(s);
     ReadLn;
     end.