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

Const N = 13;Var   A:array[1..N] of integer;   i,Min,Max:integer;BeginFor 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.