[Janom]

Код:

procedure TForm1.Button1Click(Sender: TObject);
Var
  i:Integer;
  S,S1:String;
  SumChisel,SumBukvMH:Integer;
begin
SumChisel:=0;
SumBukvMH:=0;
S1:='';
S:='Это 1 исходный текст для выполнения 4 задий';
Edit1.Text:=S; //только для наглядности
for i:=1 to Length(S) do
  begin
    if (LowerCase(S[i])='o') or (LowerCase(S[i])='о') then
      S[i]:='a';
    if (S[i]<>'0') and (S[i]<>'1') and (S[i]<>'2') and (S[i]<>'3') and (S[i]<>'4')and
    (S[i]<>'5') and (S[i]<>'6') and (S[i]<>'7') and (S[i]<>'8') and (S[i]<>'9') then
      S1:=S1+S[i]
      else SumChisel:=SumChisel+StrToInt(S[i]);
    if (LowerCase(S[i])='н') or (LowerCase(S[i])='м') and (i mod 2 <> 0) then
      SumBukvMH:=SumBukvMH+1;
  end;
S:=S1;
Edit2.Text:=S;
Label1.Caption:='Сумма чисел = '+ IntToStr(SumChisel);
Label2.Caption:='Сумма букв "н" и "м" = '+ IntToStr(SumBukvMH);
end;