Пожалуйста посчитайте написать программу в паскале В массиве А (15) целых чисел поменять местами 5 и 13 элементы. Вывести начальный и изменены массивы в строку через два пробела.

begin
  var a:=ArrRandom(15,-50,50); a.Println('  ');
  Swap(a[4],a[12]); // индексы от нуля
  a.Println('  ')
end.


40  28  18  1  35  -50  13  17  40  7  -48  46  -12  -9  50
40  28  18  1  -12  -50  13  17  40  7  -48  46  35  -9  50