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

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.