Заполнить массив А(21) случайными числами в диапазоне от -10 до 10. Вывести его на экран.(Pascal ABC).

const
n = 21;

var
a: array [ 1..n ] of integer;
i: integer;

begin

cls;
writeln ( 'Заполнение массива случайными числами в диапазоне от -10 до 10.' );
randomize;
for i := 1 to n do
begin
a[i] := random ( 20 ) - 10;
writeln( 'a[', i, '] = ', a[i] );
end;
end.