Решение задачи в паскале: дано предложение, все пробелы в нём заменить на *, а остальное заменить на -Нужно менять саму

Вводим переменные для счетчика цикла, предложения нового предложения:var i:integer;sentence,sentence_:string; beginПрограмма запрашивает предложение у пользователя:readln(sentence);Выводит его на экран:writeln(sentence);Цикл проходит по каждому символу предложения, выполняет проверку, данную в задаче, и составляет новое предложение из символов \"-\" и \"*\".for i:=1 to length(sentence) dobeginif sentence[i]=\' \' thensentence_:=sentence_+\'*\'elsesentence_:=sentence_+\'-\';end;Когда цикл закончился, выводится строка в новом виде:writeln(sentence_);end.