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

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.