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

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