Определить число повторений символа

program simvol;
const A='A';
const B='B';
const C='C';
var sim: char
ka,ea,pa: integer;
 
begin
ka:=0
ea:=0
pa:=0
writeln('Введите строку текста');
 
 begin
  repeat
  read(sim);
  if sim=a then ka:=ka+1
  until sim='.';
 end;
 
 begin
 repeat
  read(sim);
  if sim=b then ea:=ea+1
  until sim='.';
 end;
 
 begin
 repeat
  read(sim);
  if sim=c then pa:=pa+1
  until sim='.';
 end;
 
writeln;
writeln('Буква A встречается в тексте'ka:2,'раз');
writeln('Буква B встречается в тексте'ea:2,'раз');
writeln('Буква C встречается в тексте'pa:2,'раз');
end.

uses crt;
var s: string;
    k1,k2,k3: byte;
 
procedure KolSim (str: string; c: char; var k: byte);
var i: byte;
begin
k:=0;
for i:=1 to length(str) do
    if str[i]=c then k:=k+1;
end;
 
begin
write('s='); readln(s);
KolSim (s,'a',k1);
KolSim (s,'b',k2);
KolSim (s,'c',k3);
writeln('Количество символов "a"=',k1);
writeln('Количество символов "b"=',k2);
writeln('Количество символов "c"=',k3);
writeln('Всего ',k1+k2+k3);
end.