Заполнить матрицу случайными числами от -20 до 20. вывести на экран.

Program vav;
var A:array[1..20,1..20] of integer;
n,i,j:integer;
begin
randomize;
read(n);
for i:=1 to n do
 for j:=1 to n do
 A[I,j]:=(random(21)-10)*2;
for i:=1 to n do
 begin
 for j:=1 to n do
 write(A[I,j],' ');
writeln;
end;
end.