По заданному значению факториала n! определить n - Free Pascal

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;{остаток и текущее делимое}
 
begin
  clrscr;
  readln(a);
  read(b);
  val(a, n, i);{попробуеи преобразовать строку в число}
  if(i = 0) and (n < b) then{если число типа integer, и меньше делителя}
  begin
    write(0);{пишем 0}
    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(ch[i]);{пишем результат}
  writeln;
end.