Заполнить массив случайными числами и найти разность между максимальным и минимальным

var A: array [1 .. 20] of integer; Max, min: integer; Begin for i:=1 to 20 do A[i]:=random; for i:=1 to 20 do write (a[i],' '); for i:=1 to 20 do if (A[i]>Max) then Max:= A[i] else if (A[i]< min) then min:=A[i] end.