Задан текст, содержащий цифры. Напечатать цифру, наиболее редко встречающуюся в этом тексте — Pascal(Паскаль)

Program PascalGuru;

var
  s, cif: string;
  cifry: array [0 .. 9] of integer;
  i, j, min, otvet: integer;
  esti: boolean;

begin
  write('Vvedite tekst:');
  readln(s);
  for i := 0 to 9 do
    cifry[i] := 0;

  esti := false;

  for i := 1 to length(s) do
    for j := 0 to 9 do
    begin
      str(j, cif);
      if s[i] = cif[1] then
      begin
        inc(cifry[j]);
        esti := true;
      end
    end;
  { ------------------------------------- }

  if esti then
  BEGIN
    for i := 0 to 9 do
      if cifry[i] > 0 then
      begin
        min := i;
        break;
      end;

    for i := 0 to 9 do
      if cifry[i] > 0 then
        if cifry[i] < cifry[min] then
          min := i;
    writeln('Otvet: ', min)
  END
  else
    writeln('V tekste net tsifr...');

  readln;

end.