Паскаль 10 класс имеется текст,состоящий из слов,разделенных между собой пробелом. все буквы в тексте прописные. а) заменить в предложении символ пробел на символ *

Var s:string;
i:integer;
begin
 write('Введите текст: '); readln(s);
for i:=1 to length(s) do
if s[i] = ' ' then write('*') else write(s[i]);
end.