Программа, которая создает в отдельном случайный массив

program jfe3; const n=10; {Это будет кол-во элементов массива}var a: array [1… n] of integer; i,s: integer; begin randomizefor i: =1 to n do begin a[i]: =random (100); {элемент выбирается случайно от 0 до 100} s: =s+a[i]; {Когда эл. Присвоился, его значение плюсуется к общ сумме} end; for i: =1 to n dowriteln (a[i],'); {показать сам массив}writeln (s); {показать сумму}readln; {чтобы окно сразу не закрывалось}end. Так?