Удалить букву из слова.

var s:string;
i:integer;
begin
s:='Sator arepo tenet opera rotas';
i:=1;
while i<length(s) do
begin
if (s[i]='o') or (s[i]='O') then delete(s,i,1);
inc(s,2);
end;
end;

//Выделение слов из текста и удаление из них тех букв "О, о",
//которые расположены в слове на нечётных позициях.
procedure TForm1.Button3Click(Sender: TObject);
const
  //Разделители слов.
  D = ['.', ',', ':', ';', '!', '?', '-', ' ', #9, #10, #13];
var
  S, sW : String;
  i, j, Pos1, Len, LenW : Integer;
begin
  Memo2.Clear;
  //Исходный текст.
  S := Memo1.Text;
  Len := Length(S);
 
  //Обработка текста.
  Pos1 := 0;
  for i := 1 to Len do begin
    //Пропускаем разделители.
    if S[i] in D then Continue;
    //Отслеживаем начало слова.
    if (i = 1) or (S[i - 1] in D) then Pos1 := i;
    //Отслеживаем конец слова.
    if (i = Len) or (S[i + 1] in D) then begin
      LenW := i - Pos1 + 1;
      sW := Copy(S, Pos1, LenW);
      //Удаление букв "О, о", стоящих на нечётных позициях.
      for j := LenW downto 1 do begin
        if (j mod 2 <> 0) and (sW[j] in ['О', 'о', 'O', 'o']) then
          Delete(sW, j, 1)
        ;
      end;
      //Запись в Мемо.
      Memo2.Lines.Add(sW);
    end;
  end;
end;

//Удаление в тексте тех букв "О, о", которые расположены в словах на
//нечётных местах.
//С применением счётчика позиций.
procedure TForm1.Button1Click(Sender: TObject);
const
  //Разделители слов.
  D = ['.', ',', ':', ';', '!', '?', '-', ' ', #9, #10, #13];
var
  S1, S2 : String;
  //i - индекс символа в исходной строке.
  //j - индекс символа в строке результата.
  //Cnt - счётчик букв в слове. По значению этого счётчика мы будем определять
  //на чётном или нечётном месте стоит буква.
  //Len - длина исходного текста.
  i, j, Cnt, Len : Integer;
begin
  Memo2.Clear;
  //Исходный текст.
  S1 := Memo1.Text;
  Len := Length(S1);
 
  //Первоначально, длину строки, в которую поместим результирующий
  //текст, устанавливаем равной длине строки с исходным текстом.
  SetLength(S2, Len);
 
  //Обработка текста.
  j := 0;
  Cnt := 0;
  for i := 1 to Len do begin
    //Переписываем разделители.
    if S1[i] in D then begin
      Inc(j);
      S2[j] := S1[i];
      Continue;
    end;
    //Переписываем буквы слова, исключая буквы "О, о", стоящие
    //на нечётных местах.
    Inc(Cnt);
    //Буквы "О, о" - русские и английские.
    if not ( (Cnt mod 2 <> 0) and (S1[i] in ['О', 'о', 'O', 'o']) )
    then begin
      Inc(j);
      S2[j] := S1[i];
    end;
    //Отслеживаем конец слова и сбрасываем счётчик букв в слове.
    if (i = Len) or (S1[i + 1] in D) then Cnt := 0;
  end;
 
  //Переуснанавливаем длину строки результата в соответствие
  //с количеством добавленных в эту строку букв.
  SetLength(S2, j);
 
  //Ответ.
  Memo2.Text := S2;
end;

//Удаление в тексте тех букв "О, о", которые расположены в словах на
//нечётных местах.
//С применением флага чётной/нечётной позиции.
procedure TForm1.Button2Click(Sender: TObject);
const
  //Разделители слов.
  D = ['.', ',', ':', ';', '!', '?', '-', ' ', #9, #10, #13];
var
  S1, S2 : String;
  //i - индекс символа в исходной строке.
  //j - индекс символа в строке результата.
  //Len - длина исходного текста.
  i, j, Len : Integer;
  //True - буква на НЕчётном месте, иначе - False.
  Fl : Boolean;
begin
  Memo2.Clear;
  //Исходный текст.
  S1 := Memo1.Text;
  Len := Length(S1);
 
  //Первоначально, длину строки, в которую поместим результирующий
  //текст, устанавливаем равной длине строки с исходным текстом.
  SetLength(S2, Len);
 
  //Обработка текста.
  j := 0;
  Fl := False;
  for i := 1 to Len do begin
    //Переписываем разделители.
    if S1[i] in D then begin
      Inc(j);
      S2[j] := S1[i];
      Continue;
    end;
    //Переписываем буквы слова, исключая буквы "О, о", стоящие
    //на нечётных местах.
    Fl := not Fl;
    //Буквы "О, о" - русские и английские.
    if not ( Fl and (S1[i] in ['О', 'о', 'O', 'o']) )
    then begin
      Inc(j);
      S2[j] := S1[i];
    end;
    //Отслеживаем конец слова и сбрасываем флаг чётности/нечётности позиции.
    if (i = Len) or (S1[i + 1] in D) then Fl := False;
  end;
 
  //Переуснанавливаем длину строки результата в соответствие
  //с количеством добавленных в эту строку букв.
  SetLength(S2, j);
 
  //Ответ.
  Memo2.Text := S2;
end;

function n(x:real):real;
begin
if x <= 13 then
result := (-sqr(x)+9)
else
result := -(3/(x+1));
end;

function n(x:real):real;
begin
if x <= 13 then//если X<=13
result := (-sqr(x)+9)//вычислить результат по первой формуле
else//иначе
result := -(3/(x+1));//вычислить результат по второй формуле
end;
.............................................
var z,x:real;
begin
x:=15;//берём значение х. Берите его откуда угодно.
z:=n(x*x)-n(sin(3*x));//вычисляем z
ShowMessage(inttostr(z));//выводим результат
end;