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