Дается последовательность из n чисел. выведите разницу между максимальным и минимальным элементами последовательности. формат входных данных первая строка входного файла содержит целое число n (1 < = n < = 100000). в следующей строке n положительных целых чисел, каждое из которых не превышает 100000.

Сделано через динамический массив!
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