Даны натуральное число n, символы s1…sn. Преобразовать последовательность s1…sn заменив в ней: каждую из групп стоящих рядом точек одной точкой — Pascal(Паскаль)

uses crt;
var s:array[1..1000] of char;
   c:char;
    n,i,j,k:byte;
begin
clrscr;
write('Количество символов n=');
readln(n);
writeln('Введите ',n,' символов, в том числе группы точек');
for i:=1 to n do
read(s[i]);
readln;
i:=1;
while i<=n do
if (s[i]='.')and(s[i-1]='.') then
 begin
  j:=i;
  while(s[j]='.')and(j<=n) do
   begin
    for k:=j to n-1 do
    s[k]:=s[k+1];
    n:=n-1;
   end
 end
else i:=i+1;
writeln('Удаление лишних точек:');
for i:=1 to n do
write(s[i]);
readln
end.