Последовательно вводятся 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.