Написать программу, которая высчитывает наименьшую длину числовой оси, содержащей все элементы заданного линейного массива — Pascal(Паскаль)

var
a:array[1..100]of integer;
n,i,min,max:integer;
begin
writeln('vvedite kol-vo elementov');
readln(n);
randomize;
writeln('massiv');
for i:=1 to n do
begin
a[i]:=random(20)-10;
write(a[i],' ');
end;
writeln;
min:=a[1];
max:=a[1];
for i:=1 to n do
begin
if a[i]<min then min:=a[i];
if a[i]>max then max:=a[i];
end;
writeln('dlina osi=',max-min);
readln;
end.