[luisito2011]

..

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'

...

En la parte de Rojo me salia error(Array Type required).. bueno no inportaya lo resolvi

Código Delphi [-]
var
  i,cc : Integer;
begin
  cc:= 0;
  for i:= 1 to Length(S) do
      if upCase(S[i]) = 'A' then
      cc:=cc+1;
     result:=cc;
end;

= gracias me ayudo a comprender mas, algunas preguntas que tengo