Нужна программа в паскале (с "ramdomize") N=27 заполнить массив с помощью случайных чисел от-20 до 20

var    a: array[1..20] of integer;    i: integer; begin    randomize;    for i:=1 to 20 do        a[i] := random(41) - 20;    for i:=1 to 20 do        write(a[i], ' ');    writeln; end.