Дается последовательность из 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]gt;max then 
   max:=a[i]; 
min:=a[0]; 
for i:=0 to Length(a) do
   if a[i]lt;min then 
   min:=a[i];
  Writeln;
  Writeln(max-min); 
readln;
end