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

Const n=40;

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

b, i : integer;

begin

Randomize;

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],' ');

writeln

end.