Заполнить массив из 20 элементов случайными числами из отрезка [-20,20].паскаль !

Program sadadasf;
var i,k: integer;   
A: Array[1..20] of integer;
begin
For i:=1 to 20 do 
begin   
k:=random(41)-20;   
A[i]:=k; 
end;
end.