Составить программу которая заполняет массив из 10 элементов случайными целыми…

var a: array [1… 10] of integer; b,i: integer; z: real; beginrandomize; for i: =1 to 10 dobeginz: =random; b: =random (10); if z>0,5 then a[i]: =belse a[i]: =-b; end; for i: =1 to 10 dowrite (',a[i]); end. Если что то не понятно, спрашивай)