Программа заполнения массива из 100 чисел случайными значениями из диапазоа от -20 до 20. (паскаль)

var   arr : array [1..100] of integer; // объявляем массив.   i : integer; // объявляем переменную целочисленного типа.Begin    for i:= 1 to 100 do // начало цикла.    begin      arr[i] := random(-20,20); // заполняем элемент массива с индексом i случайным числом.      write(arr[i], \' \'); // вывод содержимого массива на экран.    end;End.