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

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.