СРОЧНО НУЖНА ПОМОЩЬ!
Во входном файле две строки. В первой строке содержится одно число 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.