В строке «Жизнь только миг» заменить пробелы дефисами и подсчитать количество замен — Pascal(Паскаль)

program kkk;
uses crt;
var st:string;
    k,i:integer;
 
begin
 clrscr;
 k:=0;
 st:='Жизнь только миг';
 for i:=1 to length(st) do
 begin
  if st[i]=' ' then
  begin
   delete(st,i,1);
   insert('-',st,i);
   inc(k);
  end;
 end;
 writeln(st);
 writeln('Количество замен: ',k);
 readln;
end.