Задача на паскалеВычислить разность между наибольшим и наименьшим элементами…

var A: array [1… 100] of integer; i,max,min,s: integer; beginrandomize; for i: =1 to 100 do beginA[i]: =random (100); end; max: =1; for i: =2 to 100 do beginif (A[i] > A[max]) then max: =i; end; min: =1; for i: =2 to 100 do beginif (A[i] < A[min]) then min: =i; end; s: =A[max] — A[min]; writeln (s); end.