написать программу заменяющую 4 пробела на одну звездочку.

В общем-то код уже меняет 4 пробела на один пробел.

program UpCase;
uses crt;
var
  st: string;
begin
  write('введите строку: ');
  readln(st);
  while pos('  ', st) > 0 do delete(st, pos('  ', st), 1);
  write('вывод: ', st);
  readln
end.

нужно модернизировать код, чтобы он не только заменял 4 пробела на один, но и чтобы менял этот один пробел на звездочку.

М

Теги!! Правила Форума, п.5, и правила раздела Задачи, п.2 Исправлено. Lapp

мой вариант:

var s:string;    i,count:byte;
 begin
  readln(s);
  for i:=length(S) downto 1 do begin
   if s[i]=' ' then inc(count) else count:=0;
   if count=4 then
       begin
        count:=0;
        delete(s,i,3);
        s[i]:='*';
       end;
    end;
writelN(S);
readln;
end.

твой код тупо стирает пробелы как я понял

Есть только одно совсем небольшое замечание.. Но оно скорее отностися к неточности условия (в приведенном виде). Из строки

'A     B'  // пять пробелов

твоя прога получит

'A *B'

. Вопрос: а не подразумевалось ли

'A* B'

- ?
Я просто хочу обратить внимание на то, что не всегда "задний проход" )) дает тот же результат, но проще .
И еще: DarkWishMaster, не забывай инициализировать счетчик.

Нет.

2 Lotan:
просьба называть темы в соответсвии с Правилами. "Модернизация кода" - звучит обалденно, но может означать все, что угодно.

Lapp, окей.