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

Program Task;
Var s: String;
i, r: Integer;
Begin
WriteLn('Введите строку:');
ReadLn(s);
For i := 1 To Length(s) Do
If (s[i] = 'a') Or (s[i] = 'A') Or (s[i] = 'а') Or (s[i] = 'А') Then
r := r + 1;
WriteLn('Результат: ', r);
ReadLn;
End.