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

Question

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

Comments

Более чёткие инструкции можно получить?

Answer 1

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.