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

//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.