ارور در پاسکال

این یه برنامه س که دو عدد حداکثر 50 رقمی رو به هم تقسیم میکنه
ارور Range check میده
نوع متغیر رو به long int تغییر دادم اما بازم همون ارور پابرجاست
کسی میتونه راهنماییم کنه

کد:

---

Program taghsim;
VAR
  m,n,i,j,k,p,l,r:Integer;
  A,B,D,C: Array [1..50] of byte;
Begin
  Writeln('Tedade arghame A ra vared konid.');
  Readln(m);
  For i:= m Downto 1 Do
    Begin
      Read (A[i]);
      Write (A[i]);
    end;
  Writeln;
  Writeln('Tedade arghame B ra vared konid.');
  Readln(n);
  For j:=n Downto 1 Do
    Begin
      Read (B[j]);
      Write (B[j]);
    end;
  Writeln;
  k:=1;
  p:=1;
  D[p]:=0;
  While k<50 Do
    Begin
      If B[k] < A[k] then
        C[k]:=A[k] - B[k]
      Else
        Begin
          B[k+1]:=B[k+1]-1;
          B[k]:=B[k]+10;
          C[k]:=A[k]-B[k];
        End;
      k:=k+1;
      D[p]:=D[p]+1;
      If D[p]=9 Then
        Begin
          D[p]:=0;
          p:=p+1;
          D[p]:=D[p]+1;
        End;
      l:=50;
      While D[l]=B[l] Do
        l:=l-1;
      If B[l]<D[l] Then
        Begin
          For r:=50 Downto 1 Do
            Begin
              Write(D[r]);
              Write(C[r]);
            End;
        End;
    End;
  Readln;
end.

---

میشه خواهش کنم تا شنبه جواب بدین
ضروریه

هیشکی پیدا نمیشه اینو به من بگه؟
خواهش میکنم