Проверьте пожалуйста правелая ли блок схема составлена!!!

program proga1;
var
 a,b:integer;
procedure Drob(NN:integer;M:integer);
type
 TArr=integer;
 TAr=array[0..0] of TArr;
 pAr=^Tar;
var
 N:longint;
 c,i,step,period,dop,flag:integer;
 x:pAr;
begin
 writeln(NN,'/',M);
 GetMem(x,M*sizeof(integer));
 for i:=0 to M-1 do
  begin
   x^[i]:=0;
  end;
 step:=1;
 while 1=1 do
  begin
   N:=10;
   c:=round(N/M);
   N:=N mod M;
   if N=0 then
     begin
      writeln('Tohnai decitihnal drob');
      period:=0;
      break;
     end;
   if x^[N]<>0 then
     begin
      period:=step-x^[N];
      dop:=x^[N]-1;
      writeln('Pereodiheckal drob, dlinna perioda =',period,'dop=',dop);
      break;
     end;
    x^[N]:=step;
    inc(step);
  end;
  write('0.');
  N:=NN;
  i:=0;
  flag:=0;
  while 1=1 do
   begin
    if (flag=0) and (period<>0) and (i>=dop) then
     begin
      write('(');
      flag:=1;
      i:=0;
     end;
     N:=10;
     c:=round(N/M);
     if N=0 then break;
     if period=0 then continue;
     inc(i);
     if (flag<>0) and (i>=period) then
      begin
       writeln(')');
       break;
      end;
   end;
end;
 
begin
 write('Bvedite M:');
 readln(a);
 write('Bvedite N:');
 readln(b);
 Drob(a,b);
 read(a);
end.