Период дроби

{ найти минимальный период дроби n/m }
{ $DEFINE dialog}

const
  MaxPer = 100; { максимальная длина периода }
var
  { массивы остатков от деления и массив цифр периода }
  d,digit:array[1..MaxPer] of Integer;
  n,m,i,start:Integer;
  Found:Boolean;
  f:TEXT;
begin
{$IFDEF dialog}
  Write('Числа n и m:');ReadLn(n,m);
{$ELSE}
  Assign(f,'INPUT.TXT');
  Reset(f);
  ReadLn(f,n,m);
  Close(f);
{$ENDIF}
  i:=1;
  While n>=m do
    m:=m*10; { сдвигаем число m к числу n }
  Found:=FALSE; { флаг того, что остаток повторился }
  While Not Found do
  begin
    d[i]:=n;

     { проверка: повторяется ли остаток n? }
    start:=1;
    while (start<i) AND (not Found) do
    begin
      Found:=d[start]=n;
      Inc(start);
    end;

    digit[i]:=(n * 10) div m; { результат деления - цифра }
    n:=(n * 10) mod m; { остаток от деления }
    Inc(i)
  end;
  for n:=start to i-1 do Write(digit[n]);
  WriteLn;
end.