Пользователем задана строка. Подсчитать сколько раз встречается буква «а» и буква «с», если чаще встречается буква «а», значит вывести на экран выражение «true» иначе вывести на экран выражение «false» — Pascal(Паскаль)

var
 s:string;
 i,a,c:byte;
begin
 Writeln('Vvedite stroku');
 readln(s);
 a:=0;
 c:=0;
for i:=1 to length(s) do
  if copy(s,i,1)='a' then inc(a)
                     else if copy(s,i,1)='c' then inc(c);
if a>c then writeln('True') else Writeln('False');
readln;
end.

var
 s:string;
 i,a,c:byte;
begin
 Writeln('Vvedite stroku');
 readln(s);
 a:=0;
 c:=0;
for i:=1 to length(s) do
  if s[i]='a' then inc(a)
               else if s[i]='c' then inc(c);
if a>c then writeln('True') else Writeln('False');
readln;
end.