Программа должна печатать исходный массив и массив…

var a: array[1… 10]of integer; i,k,max: integer; beginfor i: =1 to 10 do a[i]: =random (9)+1; for i: =1 to 10 do write (a[i],'); writeln; for i: =1 to 10 do if a[i]>max then begin max: =a[i]; k: =i; end; a[k]: =a[7]; a[7]: =max; for i: =1 to 10 do write (a[i],'); end.