Вчисловом массиве из 6 элементов. найти максимальный элемент и поменять его местами с первым элементом

Var        a: array[1..15] of integer;     i,k: integer; begin        writeln('исходный массив');         k: =0;         for i: =1 to 15 do        begin              a[i]: =random(30)+10;             write(a[i]: 3);         end;         writeln;         writeln('числа кратные 3');       for i: =1 to 15 do              if (a[i] mod 3 = 0) then            begin                    write(a[i]: 3);                     inc(k);               end;               writeln;               write('таких чисел - ',k); end.

В  паскале одномерный  массив  описывается так:                                   var  < имя  массива> : array[n1..n2]  of < тип  переменной> ,  n1  <   n2, а двумерный так:                         var < имя массива> : array[n1..n2,m1..m2] of < тип переменной> , n1 < n2,  m1  < m2. значит,  правильный  ответ - с  и  последний.