В каждом слове текста замените "а" на букву "е"

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Memo1: TMemo;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
   i,N_a,N_b:byte;
   text:string;
   P_a,P_b:Array[1..128] of byte;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 listbox1.Items.LoadFromFile('1.txt');
 
 N_a:=0;
 N_b:=0;
 text:=text+listbox1.items.strings[i]+' ' ;
 
 for i:=1 to length(text) do
  if (i mod 2 = 0) and (text[i]='а') then
   begin
    Inc(N_a);
    P_a[N_a]:=i;
   end else
  if (i mod 2 = 1) and (text[i]='б') then
   begin
    Inc(N_b);
    P_b[N_b]:=i;
   end;
 
 for i:=1 to N_b do
  P_b[i]:=P_b[i]+(i-1);
 
 
{for i:=1 to N_a do
  begin
   Delete(text,P_a[i],1);
   Insert('е',text,P_a[i]);
  end;
 
 for i:=1 to N_b do
  begin
   Delete(text,P_b[i],1);
   Insert('ак',text,P_b[i]);
  end;}
 
memo1.lines.add('Результат замены: '+text);
 
end;
 
end.

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    ComboBox1: TComboBox;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
   s,s2:string;
   i:integer;
 
 
implementation
 
{$R *.dfm}
 
 
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  combobox1.Items.LoadFromFile('1.txt');
end;
 
procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
  combobox1.Items.Add(combobox1.text);
  combobox1.Items.SaveToFile('1.txt');
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 
 s:=combobox1.text;
 s2:=' ';
 memo1.Lines.Add('Исходная строка : '+s);
 for i:=1 to length(s) do
 begin
  if (not(odd(i)))and(s[i]='а')
    then s2:=s2+'e'
    else
       if (odd(i))and(s[i]='б')
       then s2:=s2+'ак'
       else
         s2:=s2+s[i];
end;
memo1.Lines.Add('Результат замены: '+s2);
 
end;
 
 
procedure TForm1.Button2Click(Sender: TObject);
begin
 close;
end;
 
end.