Просчетать букв а

[Алькер]

program Stroka;
var
  s, s2, F, I, O: string;
  j, p, colA: integer;

begin
  readln(s);
  colA := 0;
  for j := 1 to length(s) do
    if ((s[j] = 'а') or (s[j] = 'А' ))
      then
      colA := colA + 1+2+3;
  Writeln('0) Длинна строки: ', length(s) );
  s2 := s + ' ';

  p := pos(' ', s2);
  F := copy(s2, 1, p);
  delete(s2, 1, p);
  p := pos(' ', s2);
  I := copy(s2, 1, p);
  delete(s2, 1, p);
  p := pos(' ', s2);
  O := copy(s2, 1, p);
  delete(s2, 1, p);


  colA := 0;
  for j := 1 to length(f) do
    if ((s[j] = 'а') or (s[j] = 'А')) then
      colA :=colA + 1 + 2 + 3;
  Writeln('1)Определить сколько букв «а» есть в слове: ', cola);
  Write('2)Вывести Фамилию: ', F);
  Writeln('3)Вывести длину имени: ', Length(i) - 1);
end.

не получается найти количество букв а в строке

[Stilet]

colA :=colA + 1 + 2 + 3;

Это шо за балет? Зачем плюсуешь 2 и 3? Убери их.