Заменить в строке слово круг словом кругами и указать, где находиться это слово.

var
  s: string;
  i, k: integer;
 
begin
  writeln('Введите строку, содержащую слова круг');
  k := 1;
  //  readln(s);
  s := 'круглый круг квадратный ';
  for i := length(s) - 3 downto 1 do
    //если сочетание tooth и оно ограничено пробелами или началом(концом строки)
    if (copy(s, i, 4) = 'круг') and ((i = 1) or (s[i - 1] = ' ')) and ((i + 3 = length(s)) or (s[i + 4] = ' ')) then
    begin
      delete(s, i, 4);
      insert('кругами', s, i);
      inc(k);
    end;
  writeln(s);
  writeln('Слово круг ', k, '-е');
end.

procedure ChangeStr;
var
  s: string;
  i, k: integer;
begin
  writeln('Введите строку, содержащую слова круг');
  k := 0;
  readln(s);
  for i := length(s) - 3 downto 1 do
    if (copy(s, i, 4) = 'круг') and ((i = 1) or (s[i - 1] = ' ')) and ((i + 3 = length(s)) or (s[i + 4] = ' ')) then
    begin
      delete(s, i, 4);
      insert('кругами', s, i);
      inc(k);
    end;
  writeln(s);
  writeln('Слово круг ', k, '-е');
end;
 
begin
  ChangeStr;
end.