Дана последовательность чисел а1, а2,…, аn. Указать наименьшую длину числовой оси, содержащую все эти числа — Pascal(Паскаль)

var a:array [1..100] of integer;
    min,max,n,i:integer;
begin
readln (n);
read (a[1]);
min:=a[1];
max:=a[1];
for i:=2 to n do begin
read (a[i]);
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
writeln abs(max-min);
end.