паскаль!с клавиатуры вводится 8 чисел.Определить разницу между минимум и максимум

var ar:array[1..8] of integer;max,min,i:integer;begin;min:=2147483647;   //верхняя граница integerfor i:=1 to 8 dobegin;readln(ar[i]);if ar[i]<min then min:=ar[i];if ar[i]>max then max:=ar[i];end;writeln('Max:',max);writeln('Min:',min);end.