Дана строка символов. Замените в ней все восклицательные знаки точками до первого пробела — Pascal(Паскаль)

uses crt;
var st:string;
i:integer;
begin
 clrscr;
 write('-> ');
 readln(st);
 for i:=1 to length(st) do if st[i]=' ' then break else if st[i]='!' then st[i]:='.';
 writeln(st);
 readln;
end.