[ecfisa]

Hola.

Código Delphi [-]
var
  i, j, cc: Integer;
begin
  con:= 0;
  for i:= 1 to max do
   for j:= 1 to Length(S[i]) do
    if UpCase(S[i][j]) = 'A' then Inc(cc);
   // en la variable cc, tendrás la cantidad de apariciones de la letra 'A' o 'a'
   ...

Saludos.