Составить программу для подсчета числа букв А Б В в предложении — Pascal(Паскаль)

uses crt;

var
  a, b, c, x, y: integer;
  dl, ch, n, cha, chb, chv: integer;
  text, text1: string;
  aa, bb, vv, cc: char;

label 1, 2, 3;

begin
  clrscr;
  writeln('какие символы будем считать(a,b,c-через Enter)');
  readln(aa);
  readln(bb);
  readln(vv);
  writeln('Введите текст');
  readln(text);
  dl := length(text);
  text1 := text;
  cha := 0;
  chb := 0;
  chv := 0;
  n := pos(aa, text);
1:
  if n > 0 then
  begin
    cha := cha + 1;
    Delete(text1, 1, n);
    dl := length(text1);
    if dl > 0 then
    begin
      n := pos(aa, text1);
      goto 1;
    end
  end;
  text1 := text;
  n := pos(bb, text1);
2:
  if n > 0 then
  begin
    chb := chb + 1;
    Delete(text1, 1, n);
    dl := length(text1);
    if dl > 0 then
    begin
      n := pos(bb, text1);
      goto 2;
    end
  end;
  text1 := text;
  n := pos(vv, text1);
3:
  if n > 0 then
  begin
    chv := chv + 1;
    Delete(text1, 1, n);
    dl := length(text1);
    if dl > 0 then
    begin
      n := pos(vv, text1);
      goto 3;
    end
  end;
  writeln('В предложениии ', aa, ' встречается ', cha, ' раз(а) ');
  writeln('В предложениии ', bb, ' встречается ', chb, ' раз(а) ');
  writeln('В предложениии ', vv, ' встречается ', chv, ' раз(а) ');

end.