Составить программу для вычеркивания из слов текста всех букв , стоящих на нечетных местах после буквы "а"

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  s: string[100];
begin
  s := edit1.Text;
  for i := 1 to Length(s) do
    if s[i] = 'a' then
      if i + 1 mod 2 = 1  then
        Delete(s, i + 1, 1) else
          Delete(s, i + 2, 1);
end;

procedure TForm1.Button1Click(Sender: TObject);
var s:string;
    i:integer;
begin
s:=Edit1.Text;
for i:=length(s) downto 3 do
if odd(i)and(s[i-1]='a')then delete(s,i,1);
Edit2.Text:=s;
end;

procedure TForm1.Button1Click(Sender: TObject);
Var
  i: Integer;
  s: string[100];
Begin
  s := edit1.Text;
  For i := 1 To Length(s) Do
    If s[i] = 'a' Then
    Begin
      For j:= Length(s) Downto i+1 Do
        If Odd(j)  Then
          Delete(s, j, 1);
      Break;
    End;
  Edit1.Text = s;
End;

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  s: string[100];
begin
  s := edit1.Text;
  for i := 1 to Length(s) do
    if s[i] = 'a' then
      if i + 1 mod 2 = 1  then
        Delete(s, i + 1, 1) else
          Delete(s, i + 2, 1);
  Edit1.Text := s;
end;

var
  Form1: TForm1;
  s:string;
  k:integer;
implementation
 
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Memo1.Clear;
Memo1.Visible:=false;
Edit1.Visible:=false;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
case RadioGroup1.ItemIndex of
0:begin
  Memo1.Visible:=true;
  if OpenDialog1.Execute then
  Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
  k:=1;
  end;
1:begin
  Edit1.Visible:=true;
  Showmessage('Введите строку в Edit');
  k:=2;
  end;
else Showmessage('Вы не выбрали способ введения строки');
end;
 
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
begin
case k of
1:s:=Memo1.Text;
2:s:=Edit1.Text;
end;
for i:=length(s) downto 3 do
//для русской и латинской а
if odd(i)and(s[i-1]in['a','a'])then delete(s,i,1);
Edit2.Text:=s;
end;