Помогите все в паскале

соствьте программу которая заполняет массив а[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.