Между всеми словами текста устранить все знаки препинания и оставить по одному пробелу

const
  znaki = ['.', ',', ':', '?', '!'];
 
var
  s: string;
  ks, kb, i: integer;
 
begin
  write('Введите строку: ');
  readln(s);
  i := 1;
  repeat
    if copy(s, i, 2) = '  ' then
      s := copy(s, 1, i) + copy(s, i + 2, length(s))
    else
      i := i + 1;
  until (i > length(s));
  writeln('Строка без лишних пробелов: ', s);
  for i := length(s) downto 1 do
    if s[i] in znaki then
      delete(s, i, 1);
  writeln('Строка без лишних пробелов и знаков препинания: ', s);
  ks := 0;
  kb := 0;
  for i := 1 to length(s) do
    if s[i] = ' ' then 
      ks := ks + 1 
    else 
      kb := kb + 1;
  if s[length(s)] <> ' ' then 
    ks := ks + 1;
  WriteLn('Средняя длина слова = ', kb / ks);
  
end.

const
  Marks = [#0..#127]-['0'..'9','A'..'Z','a'..'z'];
var
  s: String;
  i, j: Integer;
begin
  Write('Строка: ':15); ReadLn(s);
  i:=1; while (i<=Length(s)) and (s[i] in Marks) do Inc(i);
  Delete(s,1,i-1);
  j:=1;
  for i:=2 to Length(s) do
    if not (s[i] in Marks) then begin
      Inc(j); s[j]:=s[i];
    end else if not (s[i-1] in Marks) then begin
      Inc(j); s[j]:=' ';
    end;
  if j<Length(s) then SetLength(s,j); {s[0]:=Chr(j);}
  Write('Результат: ':15,s);
end.