Замена четверок пробелов на звездочки Опции

[Lotan]

написать программу заменяющую 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