Длинная арифметика,случайное число Опции

[Let]

Ищу простое число по малой теореме Ферма.Там мне необходимо случайное число от 1 до искомого числа.Как реализовать функцию,которая бы выдавала случайное значение длинной арифметики?

[volvo]

А как тогда быть с большим числом, вводимым с клавиатуры?

Ну, в принципе модуль не был изначально предназначен для ввода чисел, больших, чем MaxLongInt, но никто ж не мешает добавить еще один конструктор :

constructor TLargeInt.Init_s(const s: string);
var
  every, i, err: integer;
  value: longint;
  vs, base_s: string;

begin
  str(base - 1, base_s); every := Length(base_s);
  FillChar(_me, sizeof(_me), 0); vs := s;
  while length(vs) mod every <> 0 do vs := '0' + vs;

  i := 0;
  repeat
    val(copy(vs, length(vs) - every + 1, every), value, err);
    { Здесь можно добавить проверку на "нецелочисленное" содержимое строки... }
    inc(i); put(i, value);
    delete(vs, length(vs) - every + 1, every);
  until vs = '';
  setlen(i);
end;

и либо инициализировать так:

var s: string;
...
readln(s);
big_int.init_s(s);
...

, либо вообще внести процедуру чтения строки внутрь конструктора, и просто вызывать init_s без параметров... Только вот до 10³⁰⁰ со строкой не получится (только до 10²⁵⁵), но я не думаю, что у кого-то будет желание вводить > 200 символов... Если все же будет, то PChar в помощь, там подобного ограничения нет...