После символа «:» вставить «*», если количество символов «=» равно 5 - Turbo Pascal

var s: string;
    i, k: integer;
begin
  writeln('Enter string:');
  readln(s);
  k := 0;
  for i := 1 to length(s) do if s[i] = '=' then inc(k);
  if (k = 5) and (pos(':', s) > 0) then insert('*', s, pos(':', s) + 1);
  writeln('Result:');
  writeln(s);
  readln
end.