Дано натуральное число и (< 9999). Выяснить, различны ли все четыре цифры этого числа (если оно записано четырьмя цифрами) - 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 = 1 then
      bb := true;
  end;

  if not bb then
    writeln('RAZLICNI')
  else
    writeln('NE RAZLICNI');

  readln;

end.