Решите пожалуйста!!!TurboPascal
Сформировать и вывести на экран массив,элементы которого заданы датчиком случайных чисел на интервале [-45 , 98](размер произвольный)

const n=10;

var a:array [1..n] of integer;

i,k:integer ;

begin

randomize;

write ('Массив: ');

for i:=1 to n do

begin

a[i]:=random(144)-45;

write (a[i],' ')

end;

writeln;

end.