В строке заменить все двоеточия точкой с запятой(Паскаль)

Предыдущий
вопрос Следующий
вопрос

Пример:

var
s: string;
i: integer;
begin
s := 'Это: пример: строки:';
for i := 1 to Length(s) do
begin
if s[i] = ':' then
s[i] := ';';
end;
WriteLn(s);
end.

Результат:

Это; пример; строки;