В одномерном массиве найти разность наибольшего и наименьшего элемента

//Pascal const n=100; //количество элементов массива var i,max,min:integer;     a:array[1..n] of integer; begin //Считаем что массив уже заполнен //Пусть начальное значение max заведомо меньше минимального а //начальное значение min больше максимального значения элемента массива   max:=-999999; min:=999999;   for i:=1 to n do begin     if a[i]>max then max:=a[i];     if a[i]<min then min:=a[i];   end;   writeln(max-min); end.