Здравствуйте, Лирин Сергей!
Решение в приложении.

Приложение:
uses crt;
const max=100; {введем максимальный размер массива}
var b:array[1..max] of integer;
n,i,tmp:integer;
begin
clrscr;
randomize;
repeat{введем его фактический размер с проверкой диапазона}
write('Размер массива n=');
readln(n);
until n in [1..max];
writeln('Исходный массив:');
for i:=1 to n do
begin
b[i]:=random(10)+10;{заполним его случайными числами из диапазона [10,19]}
write(b[i],' ');{выведем на экран в строку через пробел}
end;
writeln;
writeln;
tmp:=b[1];{делаем обмен, запоминаем первый, ему присваиваем значение последнего,
последнему запомненное значение первого}
b[1]:=b[n];
b[n]:=tmp;
writeln('Массив после обмена элементов:');
for i:=1 to n do
write(b[i],' ');
readln
end.