Нужна помощь! Помогите разработать программу,работа со строками в VBA, которая выводит количество повторений букв.

program slovo;

uses crt;
var a,aa,b : string;
i,l,k : longint;
begin
clrscr;
write(' введите слово: ');readln(a);
write(' введите букву: ');readln(aa);
l:=length(a);
if length(aa)>1 then halt;
for i:=1 to l do
if a=aa then inc(k);
write(' Ответ: ',k);
readln;
end.