Помогите с инфой

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

2) создать массив 10 слов

3) создать массив 7 эл-тов значение которых будут символы введенные с клавиатуры

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.