Помогите с задачей

[KREGI]

Скажите, где ошибка?

procedure TForm1.Button1Click(Sender: TObject);
var str,f,p,g:string;
i:integer;
d:real;
begin
f:=str;
str:=Edit1.Text;
p:='áó'; g:='áà';
for i:=1 to length(str) do
begin
d:=str[i];
if d mod 2=0 then
f:=I+p
else
f:=I+g;
edit2.Text:=f;
end;
end.

[Sazary]

procedure TForm1.Button1Click(Sender: TObject);
var
str : string;
i,k : integer;
begin
str := Edit1.Text;
Edit2.Clear;
k := 0;
for i:=1 to length(str) do
 begin
 Edit2.Text := Edit2.Text + str[i];
 if i mod 2=0 then
  begin
  case k of
   0 : begin Edit2.Text := Edit2.Text + 'ба'; k:=1; end;
   1 : begin Edit2.Text := Edit2.Text + 'бу'; k:=0; end;
   end;
  end;
 end;

end;

[KREGI]

Sazary, спасибо, теперь я понял, что Вы имели ввиду, мне ашь стыдно, легкая задача и не смог самостоятельно решить.