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

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.