Как сделать рандомирование отдельного числа, а не всей матрицы

{Ученик одной из школ для одаренных детей, учившийся на одни пятерки, прейдя домой из школы,
принялся за выполнение домашнего задания. Подойдя к решению задачи по математике, он не смог решить задачу.
По условию, которой дано: вывести разницу между максимальной и минимальной цифрами числа. Число,
участвующее в задаче - x. В диапазоне (0<x<1000). Помогите ему решить данную задачу.
Ввод
Исходный файл содержит целое число х.
Вывод
В выходной файл вывести разницу между максимальной и минимальной цифрами.
Если число вышло за диапазон то тогда нужно его прировнять к ближайшему числу, лежащему в диапазоне.
Если число состоит из одинаковых чисел, то за разницу принять значение нуля.
Пример
z.in
509
z.out
9}
Program CPC_2_2;
uses crt;
var
  a:array[1..1000] of real;
  i,n:LongInt;
  min,max,s:real;
  f_in,f_out:text;
Begin
  assign(f_in,'z.in');
  reset(f_in);
  assign(f_out,'z.out');
  rewrite(f_out);
  readln(f_in,n);
  randomize;
  for i:=1 to n do
  begin
  a[i]:=random(510);
  end;
    min:=a[1];
  for i:=2 to n do
    if min>a[i] then min:=a[i];
          max:=a[1];
    for i:=2 to n do
    if max<a[i] then  max:=a[i];
  begin
   s:=max-min;
   write(f_out,'Разница между максимальной и минимальной цифрами = ',s:1:0);
  end;
  writeln ('Программа Завершена!');
  close(f_in);
  close(f_out);
End.

X := random(999)+1;