Найти разницу между максимальной и минимальной цифрами числа 509

{Ученик одной из школ для одаренных детей, учившийся на одни пятерки, прейдя домой из школы,
принялся за выполнение домашнего задания. Подойдя к решению задачи по математике, он не смог решить задачу.
По условию, которой дано: вывести разницу между максимальной и минимальной цифрами числа. Число,
участвующее в задаче - x. В диапазоне (0<x<1000). Помогите ему решить данную задачу.
Ввод
Исходный файл содержит целое число х.
Вывод
В выходной файл вывести разницу между максимальной и минимальной цифрами.
Если число вышло за диапазон то тогда нужно его прировнять к ближайшему числу, лежащему в диапазоне.
Если число состоит из одинаковых чисел, то за разницу принять значение нуля.
Пример
z1.in
509
z1.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,'z1.in');
  reset(f_in);
  assign(f_out,'z1.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.

Var
  x : Integer;
  min,max : Byte;
Begin
  x:=509; min:=10; max:=0;
  While x>0 do
  Begin
    If (x mod 10)>max then max:=(x mod 10);
    If (x mod 10)<min then min:=(x mod 10);
    x:=x div 10;
  end;
  Writeln(max-min);
end.