В строке заменить все символы на пробелы после двоеточия. На паскале

Var
   S:string;
   i,L:integer;
Begin
Write('Введите строку: ');ReadLn(S);
i:=1;
L:=Length(S);
While (i<=L)and(S[i]<>':') do
   i:=i+1;
For i:= i+1 to L do
    S[i]:=' ';
Write(S)
End.