Последовательности пробелов заменить одним пробелом.

Program simvol_6;
uses crt;
var s,b:string;
    k,i,x:integer;
Begin
clrscr;
       Writeln('Введите предложение');
       readln(s);
       b:=' ';
       k:=0;
     for i:=1 to length(s) do
     begin
       if (i<65) or (i>90) or (i<97) or (i>122) or (i<128) or (i>175) or (i<224) or (i>239) then
      s[i]:=' ';
      end;
      write('s',s[i]:1);
readln;
end.

Program simvol_6;
uses crt;
var s,b:string;
k,i,x:integer;
Begin
clrscr;
Writeln('Введите предложение');
readln(s);
for i:=1 to length(s) do {здесь надо не номера символов в строке, а их коды по таблице, кроме того нужно ограничивать интервалы с двух сторон, иначе после первого знака больше, все что больше заменит на пробелы}
if (ord(s[i])<65) or ((ord(s[i])>90)and(ord(s[i])<97))
or((ord(s[i])>122)and(ord(s[i])<128)) or ((ord(s[i])>175)and(ord(s[i])<224))
or (ord(s[i])>241) then s[i]:=' ';
while pos('  ',s)>0 do {удаляем лишние пробелы, в кавычках обязательно по 2 пробела}
delete(s,pos('  ',s),1);
write(s);
readln
end.