Составить программу для заполнения массива 20-ю целыми случайными числами, из [-50;50]

var  A: array [1..20] of integer;  i: byte;begin  randomize;  for i := 1 to 20 do    A[i] := random(101)-50;  for i := 1 to 20 do    writeln(A[i]);end.