Нужна ! во входном файле две строки. в первой строке содержится одно число n. во второй строке - n целых чисел, разделенных пробелами. напишите программу, которая выведет в выходной файл одно число - разность минимального и максимального чисел из второй строки входного файла.

Program aaa;
var
   n,i,a,max,min:integer;
begin
   readln(n);
   for i:=1 to n do begin
      read(a);
      if(i=1) then begin
         max:=a;
         min:=a;
      end;
      if(a>max) then max:=a;
      if(a<min) then min:=a;
   end;
   writeln(min-max);
end.