Дается последовательность из N чисел. Выведите разницу между максимальным и минимальным элементами последовательности. Формат входных данных Первая строка входного файла содержит целое число N (1

Сделано через динамический массив!
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:=a[i]; 
Writeln; 
 Writeln(max-min); 
readln;
end