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

program shegor2003;

var a:array[1..10] of integer;

i, temp:integer;

begin

for i:= 1 to 10 do

a[i]:=random(11);

writeln('Исходный массив:');

for i:= 1 to 10 do

write(a[i]:3, ' ');

writeln;

temp:=a[1];

a[1]:=a[10];

a[10]:=temp;

writeln('Преобразованный массив:');

for i:= 1 to 10 do

write(a[i]:3, ' ');

end.