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

[ivanenkovaolga]

1 заменить "о" на "а"
2 определить количество цифр в тексте, подсчитать их сумму
3 удалить все цифры из текста
4 подсчитать количество (суммарное вхождение букв "м" и "н"), стоящих на нечетных позициях

[fenryr]

1)

str := '333ооо333о8ооо99л';
str := AnsiReplaceStr(str , 'о','а');

2)

 str := '3ооо3о8ооо02л';
   sum := 0;
   count := 0;
   for i := 1 to length (str) do
    if str[i] in ['0'..'9'] then
      begin
       sum := sum + integer(integer(str[i]) - 48);
       count : count + 1; 
      end;

3)

 str := '3ооо3о8ооо02л1';
   i := 1;
   while i <= length (str) Do
     Begin
        if (str[i] in ['0'..'9']) Then
              Delete (str,i,1)
         Else i := i + 1;
     End;

4)

 str := 'амаанммннн';
   i := 1;
   count := 0;
   while i <= length (str) Do
     Begin
        if (str[i] in ['м','н']) and (i mod 2 = 1) Then Inc (count);
      inc (i);
     End;

[ivanenkovaolga]

sum := sum + integer(integer(str[i]) - 48); как это записать по другому например IntToStr(str[i]) но у мя выдает ошибку почему не знаю

procedure TForm1.Button1Click(Sender: TObject);

  const
  D = ['м','н'];
   D1 = ['0'..'9'];
var
  St,St1 : String;
  i, Len,k1,Kol,sum : Integer;
begin
  St := Edit1.Text;
  Len := Length(St);
  Kol:= 0;
   sum:=0;
  k1:=0;
  for i := 1 to Len do begin
if St[i]='о' then begin St1:=St1+'а';
  end
 else
St1:=St1+St[i] ;
if checkbox1.Checked then  edit5.Text:=St1;



     if checkbox3.Checked then
    if St[i] in D1 then
      begin
      k1:=k1+1;
Edit7.Text:='Количество =' + IntToStr(k1)+' '+','+ 'Сумма ='+IntToStr(sum);
 end;




if checkbox4.Checked then
if (i mod 2 <> 0) and (St[i] in D) then Kol:=Kol+1;
    {если в строке  имеются буквы м и н и они стоят на нечетных позициях
    то увеличиваем количество на 1}
  Edit2.Text := IntToStr(Kol);
  end;
for i := Len downto 1 do begin
if St[i] in D1 then Delete(St, i, 1);
end;
if checkbox2.Checked then
  Edit6.Text := St;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
Form1.Close;
end;
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[D-mon]

Сообщение от ivanenkovaolga

sum := sum + integer(integer(str[i]) - 48); как это записать по другому например IntToStr(str[i]) но у мя выдает ошибку почему не знаю

Не IntToStr(str[i]) а StrToInt(str[i])

а зачем "- 48", проще так sum := sum + StrToInt(str[i]);