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

Program qq;
var n,i:byte;
       x:integer;
       min,max : integer;
begin 
 max = -32 768;
 min = 32 767; 
writeln ('Введите сколько чисел нужно ввести');
 readln (n);
for i:= 1 to n do begin  
 writeln ('Введите' , i , '-ое число'); 
 readln (x); 
if x>max then max:=x ;
if x<min then x : = min;
end; 
writeln ('Разница между наибольшим и наименьшим числам равна' , max-min);
end.