Поиск повторяющихся символов

var
  a, b, t, i, j: integer;
  n, r: array[0..2001] of integer;
  s: string;
begin
  read(s);
  val(copy(s, 1, pos('/', s) - 1), a, t);
  delete(s, 1, pos('/', s));
  val(s, b, t);
  write(a div b);
  t := a mod b * 10;
  if t = 0 then exit;
  write('.');
  while t > 0 do
  begin
    if (r[t mod b] > 0) and (t div b = n[r[t mod b]]) then break;
    inc(i);
    r[t mod b] := i;
    n[i] := t div b;
    t := t mod b * 10
  end;
  if t = 0 then
  begin
    for j := 1 to i do
      write(n[j]);
    exit
  end;
  for j := 1 to r[t mod b] - 1 do
    write(n[j]);
  write('(');
  for j := r[t mod b] to i do
    write(n[j]);
  write(')')
end.

const
  a: string[36] = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'; 
var
  n, r, b,m: real;
  rez, s, s2, s3: string;
  t, cc, ind, cc2, k: integer;
 
 
procedure Del(var ss: string);
var
  i: integer;
begin
  ind := 0;  
  s2 := '';
  for i := 1 to length(ss) do  
  if ss[i] in [',', '.'] then
    begin
      ind := i; 
      break
    end
    else    
      s2 := s2 + ss[i]; 
  if ind <> 0 then 
  begin
    delete(s, 1, ind); 
    s3 := ss; 
  end;
end;
 
 
function ToDec(var ss: string; cc: byte): integer;
var
  i, n, sum: integer;
begin
  sum := 0;
  n := length(ss); 
  for i := 1 to n do 
  begin
    dec(n); 
    sum := sum + round((pos(ss[i], a) - 1) * exp(ln(cc) * n)); 
  end;
  ToDec := sum;
end;
 
 
function Cel(d: real; c: integer): string;
var
  s: string;
  n2: integer;
begin
  n2 := round(int(d)); 
  s := '';  
  repeat
    s := ((a[n2 mod c + 1]) + s); 
    n2 := n2 div c;
  until (n2 = 0);
  Cel := s;
end;
 
 
function Drob(var d: real; t, c: integer): string;
var
  s: string;
  l2, k, n3: real;
  i, l: integer;
begin
  k := d - int(d);
  s := '';
  i := 0;
  if t <> 0 then  
  begin
    repeat
      l2 := k * c;
      k := frac(l2); 
      s := s + a[round(int(l2)) + 1]; 
      inc(i); 
    until i = t;
  end
  else 
   s := '0'; 
  Drob := s;
end;
 
 
function drob2(ss: string; c: integer): real;
var
  i: integer;
  sum: real;
begin
  for i := 1 to length(ss) do 
    sum := sum + (pos(ss[i], a) - 1) * exp(ln(c) * -i); 
  drob2 := sum;
end;
 
begin
  repeat
    write('Из какой системы счисления будем переводить число : ');
    readln(cc2)
  until cc2 in [2..36]; 
  write('В какую систему счисления будем переводить число: ');
  readln(cc);
  if cc2 = 10 then
  begin
    write('Введите число в виде обыкновенной дроби в   ' , cc2, '-й системе счисления:    ');
    readln(n);
    writeln('/');
    readln(b);
    m:=n/b;
    write('Введите точность(кол-во знаков после запятой,которое хотите получить: ');
    readln(t);
    if ((m - round(int(m))) = 0) then 
      rez := Cel(m, cc)
    else     
      rez := Cel(m, cc) + ',' + Drob(m, t, cc);
  end
  else 
  begin
    write('Введите число в: ', cc2, '-й системе счисления: ');
    readln(s);
    Del(s); 
    if ind = 0 then
      rez := Cel(ToDec(s2, cc2), cc) 
     
    else
    begin
      r := drob2(s3, cc2); 
      rez := Cel(ToDec(s2, cc2), cc) + ',' + drob(r, length(s3), cc); 
    end;
  end;
  write(rez);
  readln;
end.