Pascal stroki

[DRGNforce]

(Знатоки Паскаля поможете?) В строке заменить все точки '.' восклицательными знаками '!' Подсчитать количество замен.

[miftayka]

k:=0;
while (pos(s, '.')<>0) do
begin
   s[pos(s, '.')] := '!';
   inc(k);
end;

[Aronax]

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