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

Вводим переменные для счетчика цикла, предложения нового предложения:
var i:integer;
sentence,sentence_:string;

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