Дано натуральное число п (п < 9999). Выяснить, верно ли, что это число содержит ровно три одинаковые цифры, если оно записано четырьмя цифрами, как, например, числа 3363, 4844, 0300 и т. п. - Pascal(Паскаль)

program f;

label 1;

var
  p, i, j, n: integer;
  s: string;
  bb: boolean;

begin
1:
  write('Pi= ');
  readln(p);
  if p > 9999 then
  begin
    writeln('ERROR: Pi < 9999');
    goto 1
  end;
  str(p, s);
  bb := false;
  for i := 1 to length(s) do
  begin
    n := 0;
    for j := 1 to length(s) do
      if i <> j then
        if s[i] = s[j] then
          inc(n);
    if n = 2 then
      bb := true;
  end;
  writeln(bb);

  readln;

end.