Составьте программу, которая заполняет массив a [1..10] случайными целыми числами в диапозоне от 1 до 10, затем меняет местами первый и последний элементы. Выведите на экран исходный и полученный массивы.

program katyadamn; var a:array[1..10] of integer;    i,j:integer; begin writeln('Исходный массив:'); writeln; for i:=1 to 10 do begin a[i]:=random(9)+1; write(a[i],' '); end; j:=a[10]; a[10]:=a[1]; a[1]:=j; writeln('Полученный массив:'); writeln; for i:=1 to 10 do write(a[i],' '); end.