Дан массив указать наименьшую длину числовой оси содержащую все числа массива

Const N = 13;
Var
   A:array[1..N] of integer;
   i,Min,Max:integer;
Begin
For i:= 1 to N do
    Begin
    A[i]:=random(N);
    Write(A[i],' ')
    End;
Max:=A[1];
Min:=A[1];
For i:= 2 to N do
    Begin
    if Max<A[i] then Max:=A[i];
    if Min>A[i] then Min:=A[i];
    End;
WriteLn('- данные числа лежат на отрезке, длина которого: ',Max - Min);
End.