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

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