Ввести строку с клавиатуры и определить в ней процентное содержание букв «а» и «я».- Pascal(Паскаль)

var
str:string;
a,z,i:integer;
aPr,zPr:real;
begin
a:=0;z:=0;
str:='Hellow world';
for i := 1 to Length(str) do
  if str[i] = 'e' then
   a := a + 1
  else if str[i] = 'l' then
   z := z + 1;
aPr := (a / Length(str)) * 100;
zPr := (z / Length(str)) * 100;
writeln(aPr);
writeln(zPr);
end.