вычитание многоразрядных чисел

var m:array[1..10000] of char;
    a,b:array[1..10000] of byte;
    c:char;
    n,na,nb,i,j,k:integer;
begin
repeat
writeln('Введите 2 числа в строку через разделитель ;, окончаие ввода Enter');
k:=0;
n:=0;
repeat
c:=readkey;
if (c=';')and(k=0)then
 begin
  k:=1;
  inc(n);
  write(c);
  m[n]:=c;
 end;
if (c='0')and(n>0)and(m[n]<>';') then
 begin
  inc(n);
  write(c);
  m[n]:=c;
 end;
if c in ['1'..'9'] then
 begin
  inc(n);
  write(c);
  m[n]:=c;
 end;
if c=#13 then writeln;
until c=#13;
if (k=0)or(m[1]=';')or(m[n]=';') then writeln('Вы ввели только 1 число, повторите ввод');
until (k=1)and(m[1]<>';')and(m[n]<>';');
na:=0;
i:=1;
while(i<=n)and(m[i]<>';') do //пусть разделитель ;
 begin
  inc(na);
  a[na]:=ord(m[i])-48;
  i:=i+1;
 end;
i:=i+1;
nb:=0;
for j:=i to n do
 begin
  inc(nb);
  b[nb]:=ord(m[j])-48;
 end;
for i:=1 to na do
write(a[i]);
writeln;
for i:=1 to nb do
write(b[i]);
writeln;
if na>nb then write('Первое число больше')
else if na<nb then write('Второе число больше')
else
 begin
  k:=0;
  i:=1;
  while(i<=na)and(k=0) do
  if a[i]>b[i] then k:=1
  else if b[i]>a[i] then k:=2
  else i:=i+1;
  if k=0 then write('Числа равны')
  else if k=1 then write('Первое число больше')
  else write('Второе число больше')
 end;
end.