работа со строковыми переменными

procedure TForm1.Button1Click(Sender: TObject);
var S: String;
    i: Integer;
begin
  S := 'rioorhgooowerefgaaauugaa';
  i := 1;
  while i <> Length(S) do
    begin
      if S[i] = 'o' then
        S[i] := 'a';
      i := i+1;
    end;
    Caption := S;
end;

procedure TForm1.Button1Click(Sender: TObject);
var S: String;
    i: Integer;
    x,y: Integer;
const D = ['0'..'9'];
begin
  S := 'rioor1hgooowerefgr556aaauugaa';
  i := 1;
  x := 0;
  y := 0;
  while i <> Length(S) do
    begin
      if S[i] in D then
        begin
          x := x+1;
          y := y + StrToInt(S[i]);
        end;
    i := i+1;
    end;
  Caption := IntToStr(x)+' '+IntToStr(y)
end;

const
  D = ['0'..'9'];
var
  S : String;
  i, Len : Integer;
begin
  S := Edit1.Text;
  Len := Length(S);
  for i := Len downto 1 do begin
    if S[i] in D then Delete(S, i, 1);
  end;
  
  Edit2.Text := S;
end;

const
  D = ['М', 'м', 'Н', 'н'];
var
  S : String;
  i, Len, Cnt : Integer;
begin
  S := Edit1.Text;
  Len := Length(S);
  Cnt := 0;
  for i := 1 to Len do begin
    if (i mod 2 <> 0) and (S[i] in D) then Inc(Cnt);
  end;
  
  Edit2.Text := 'Всего букв "М", "м", "Н", "н", стоящих на нечётных местах: ' + IntToStr(Cnt);
end;