Заполнить одномерный массив целых чисел из 12 элементов случайным…

Program gt; var a: array[1… 12]of integer; n,i,max: integer; beginrandomize; for i: =1 to 12 dobegina[i]: =random (100) -50; write (a[i],'); end; writeln; write (a[2],',a[3],',a[4],',a[9],',a[12],'); max: =a[1]; for i: =2 to 12 do beginif (a[i]>max) then max: =a[i]; end; writeln (max); end.