Деление длинного числа на короткое.

uses crt;
var a:string;{строка, читаем из файла}
    m:array[1..100] of byte;{делимое как массив цифр}
    ch:array[1..100] of byte;{частное как массив цифр}
    b:integer;{делитель из файла}
    n,n1,i:integer;{размеры массивов и счетчик циклов}
    os,x:longint;{остаток и текущее делимое}
    f,g:text;{файловые переменные}
begin
clrscr;
assign(f,'input.txt');
reset(f);
assign(g,'output.txt');
rewrite(g);
readln(f,a);
read(f,b);
close(f);
val(a,n,i);{попробуеи преобразовать строку в число}
if(i=0)and(n<b)then{если число типа integer, и меньше делителя}
 begin
  write(g,0);{пишем 0}
  close(g);
  exit;{завершаем программу}
 end;
n:=length(a);{количество разрядов=размер исходного массива}
for i:=1 to n do
m[i]:=ord(a[i])-48;{создадим массив цифр из символов строки}
{вычислим старший разряд частного}
x:=0;
i:=0;
while x<b do{составим первое текущее делимое}
 begin
  i:=i+1;
  x:=x*10+m[i];
 end;
n1:=1;
ch[n1]:=x div b;{пишем в результат первую цифру}
os:=x mod b;{сохраняем остаток}
if i<n then{если делимое не кончилось, считаем дальше}
repeat
i:=i+1;{добавляем следующую цифру }
x:=os*10+m[i];{справа к остатку, умноженному на 10}
n1:=n1+1;
ch[n1]:=x div b;{следующая цифра частного}
os:=x mod b;{новый остаток}
until(i=n);{последня цифра - конец}
for i:=1 to n1 do write(g,ch[i]);{пишем результат ф файл}
close(g);
end.