Заменить в строке все пробелы ** тире. (Pascal abc)

Question

Заменить в строке все пробелы на тире.
(Pascal abc)

Answer 1

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

Пример:
for i:=1 to length(s) do
for-i:=1-to-length(s)-do