Нужна программа в паскале (с "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.