В чем ошибка? Когда печатаю "а" или "б" все работает, а когда "А" или "Б" то он не меняет "А" на "Б"

var
  stroka : string[80];
  i      : integer;
begin
  WriteLn('Программа замены букв "а" на буквы "б" и наоборот ');
    WriteLn;
  WriteLn('Введите строку из русских букв');
  ReadLn(stroka);
  stroka:=trim(stroka);
    WriteLn;
    for i := 1 to Length(stroka) do
              if stroka[i] = 'а' then stroka[i] := 'б' else
              if stroka[i] = 'б' then stroka[i] := 'а';
              if stroka[i] = 'Б' then stroka[i] := 'А' else
              if stroka[i] = 'А' then stroka[i] := 'Б';
  WriteLn('Строка после замены: ',stroka);
end.