вывести и заполнить массив состоящий из 14 элементов последовательностью -2 2 -2 2 -2 2 -2 2

только col мы не проходили

убери const col=14; и везде вместо col везде поставь 14

const   col=14;var     i:byte;        T:array[1..col] of shortint;begin  writeln('Массив из ',col,' элементов');  T[1]:=-2;  write(T[1]:6);    for i:=2 to col do begin    T[i]:=T[i-1]*(-1);        write(T[i]:6);  end;end.