помогите пожалуйста как исправить ошибку попытка присвоить переменной integer выражения типа boolean

Для начала нужно знать, что эта строка программы по-вашему должна делать.
А вообще-то нужно давать полное условие задачи.
В данном случае эта строка не имеет никакого логического смысла

Пиши в вопросе условие задачи: что надо,
код лучше оформляй на части пустыми строками.

a[i, j] :=(a[i, j] > 0);
a[i, j] > 0 принимает одно из двух:
true, если положительное или ноль,
false, если отрицательное

если нужно найти модуль числа
используй втроенную функцию abs(),
либо пиши сравнение сам (что тебе скорее всего надо,
чтобы научится работать с условиями)
если нужен знак, то делай сравнение

Write(a[i, j]:4); надо добавить условие
сравнения с нулём

ЕСЛИ (=НУЛЮ) ТО бла-бла-бла-НОЛЬ
ИНАЧЕ ЕСЛИ (больше нуля) ТО бла-бла-бла-ПОЛОЖИТЕЛЬНОЕ
ИНАЧЕ бла-бла-бла-ОТРИЦАТЕЛЬНОЕ

program dz1;
uses crt;
const
N = 5;
M = 6;
var i,j,ZERO,nPLUS,nMINUS:integer;
a: array [1..N, 1..M] of Integer;

begin

for i := 1 to N do
begin
for j := 1 to M do
begin
a[i, j] := Random(101) - 50;
Write(a[i, j]:4);
end;
WriteLn;
end;

WriteLn;
ZERO:=0;
nPLUS:=1;
nMINUS:=-1;

for i := 1 to N do
begin
for j := 1 to M do
begin
if a[i, j]=0 then Write(ZERO:4)
else if a[i, j]>0 then Write(nPLUS:4)
else Write(nMINUS:4);
end;
WriteLn;
end;

ReadLn;

end.

if a[i, j] > 0 then a[i, j] := 1 else a[i, j] := 0;

5+5=10, дальше разбирайся сам.