перестановка элементов(образец решения)

    Составить программу, которая формирует массив из 15 случайных чисел от 0 до 20, меняет 3-й и 12-й элементы и выводит значения элементов массива на экран до и после обмена.

     Program P1;

     Var  A:array[1..15] of integer;

            i, B:integer;

     Begin

      For i:=1 to 15 do 

         A[i]:=Random(21);

      For i:=1 to 15 do 

         Write(A[i],'  ');

     Writeln;

     B:=A[3]; A[3]:=A[12]; A[12]:=B;

     For i:=1 to 15 do 

       Write(A[i] ,'  ');

     End.