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