Дано предложение. определить долю (в%) букв «а» в нем. )

PascalABC.Net
взял символ английская   a
если что заменишь

 var   
   s : string;   
   i,l,k : integer;
   r : real;    
begin 
readln (s); 
l := Length (s); 
  for i := 1 to l do
    if s[i] = 'a' then 
     k := k + 1; 
 r := trunc(k/l * 100);
  writeln (r,'%'); 
end.