Дан массив L, содержащий 40 элементов в интервале от 10 до 50, замените первый и последний элементы массива. Заранее буду благодарен, сделайте в паскале.

const n=40;var a : array[1..n] of integer;     b,i : integer;beginRandomize; for i:=1 to n do begin  a[i]:=random(41)+10;   write(a[i],' ');      end;writeln; b:=a[1]; a[1]:=a[n]; a[n]:=b;for i:=1 to n do write(a[i],' ');writelnend.