помогите с инфой 1)создать массив 14 эл-тов значение которых от -5

Program massivy;
var array1: array [1..14]  of integer;
    array2: array [1..10]  of string;
    array3: array [1..7]  of string;
    i, b:integer;
begin
  for i:= 1 to 14 do
    array1[i]:=random(-5, 5);
  for i:= 1 to 10 do
    array2[i]:='Слово';
  for i:=1 to 7 do
    readln(array3[i]);
end.