Дается последовательность из n чисел. выведите разницу между максимальным и минимальным элементами последовательности.

Сделал разницу значений.Сначала вводится длинна массива.Сделано через динамический массив!
Поставь наилучшее решение!)

var a:array of Integer;    n,i,max,min:Integer;
begin 
Readln(n); 
 SetLength(a,n); 
for i:=0 to Length(a) do 
  readln(a[i]); 
 max:=a[0]; 
 for i:=0 to Length(a) do 
  if a[i]>max then 
   max:=a[i]; 
min:=a[0]; 
for i:=0 to Length(a) do
   if a[i]<min then 
   min:=a[i];
  Writeln;
  Writeln(max-min); 
readln;
end