Замена символов в Pascal

[Cruzel]

Здравствуйте. Помогите, не могу решить задачу... Вроде как написал, но не выходит ничего...
Задача такая
В строке заменить все запятые на точки. Считать, что слова в тексте записаны строчными буквами и отделены один от другого одним пробелом.

Знаю что задача лёгкая, но не получается... За решение готов отдать символическую сумму в 50 WMR, срочно нужно)

[Xardas]

var
   s : string;
begin
readln(s);
for i := 1 to length(s) do
  if s[i] = ',' then s[i] := '.';
writeln(s);
end.