Ввести целое число n. Найти сумму чисел не делящееся на 7, но делящееся на 3 среди чисел [√,].

Хмм...
Массив определяется (объявляется) двумя переменными(допустим a и b), где a - название массива, b - число столбцов. Имеет вид a[b] - это одномерный массив. Есть двумерные массивы a[b,c] - с - число строк. Они могут быть и трехмерные и n-мерные, но реже.
Массив это грубо говоря таблица состоящая из С строк и b столбцов и называющаяся A. Отсчет обычно идет с нулевого элемента, т.е. самый первый элемент массива будет a[0;0]. 
Всё о массивах написать трудно, т.к. много и не понятно, что вообще Вам нужно.

Очень много ошибок. Уже в 1 строке программы 2 ошибки: три точки вместо двух и отсутствует точка с запятой в конце строки. Ну и так далее.
Рабочий код из вашего может быть таким:

var
  A: array [1..5] of integer;
  g, j, k, l: byte;
begin
  randomize;
  for j := 1 to 5 do
  begin
    A[j] := random(9);
    writeln(A[j]);
  end;
 
  for j := 1 to 5-1 do
  begin
    for g := j+1 to 5 do
    begin
      if A[j] > A[g] then begin
        K := A[j];
        A[j] := A[g];
        A[g] := K;
      end;
    end;
  end; 
  for j := 1 to 5 do
    write(A[j]);
end.