Строка: Удалить группы пробелов, которыми начинается и заканчивается строка

var s:string;
    i,j,k:integer;
begin
writeln('Введите строку с начальными и конечными пробелами, содерзащую группы точек');
readln(s);
while s[1]=' ' do delete(s,1,1);
while s[length(s)]=' ' do delete(s,length(s),1);
while pos('  ',s)>0 do delete(s,pos('  ',s),1);
i:=1;
while i<=length(s) do
if s[i]='.' then
 begin
  k:=0;
  j:=i;
  while(j<=length(s))and(s[j]='.')do
   begin
    inc(k);
    j:=j+1;
   end;
  if k<>3 then
   begin
    delete(s,i,k);
    insert('...',s,i);
   end
  else inc(i,k);
 end
else inc(i);
write(s)
end.

repeat
  writeln('Введите строку с начальными и конечными пробелами, содержащую группы точек');
  readln(s);
until (length(s)>0) and (Pos(' ',s)>1) and (Pos('.',s)>1);

var
  s: string;
  i: integer;
begin
  writeln('Введите строку:');
  readln(s);
  for i := length(s) downto 1 do
  if (s[i] = ' ') and ((i = length(s)) or (i < length(s)) and (s[i+1] = ' ')) then
    delete(s, i, 1)
  else
    if s[i] = '.' then insert('..', s, i);
  if pos(' ', s) = 1 then delete(s, 1, 1);
  writeln('Преобразованная строка:');
  writeln(s);
  readln
end.

var
  s: string;
  i: integer;
begin
  writeln('Введите строку:');
  readln(s);
  for i := length(s) downto 1 do
  if (s[i] = ' ') and ((i = length(s)) or (i < length(s)) and (s[i+1] = ' ')) then delete(s, i, 1);
  if pos(' ', s) = 1 then delete(s, 1, 1);
  while pos('...', s) > 0 do delete(s, pos('...', s), 1);
  for i := length(s) - 1 downto 1 do if (s[i] = '.') and (s[i+1] = '.') then insert('.', s, i);
  writeln('Преобразованная строка:');
  writeln(s);
  readln
end.