Где ошибка ???ABC PASCAL

Program Worker;

var a,b,d:integer; t:text;

Begin

assign(t,'input.txt');

reset(t);

read(t, a);

read(t, b);

close(t);

if a >0 and b > 0 then d:=('В 2-й четверти! ')

if a <0 and b < 0 then d:=('В 3-й четверти')

if a >0 and b < 0 then d:=('В 4-й четверти')

if a <0 and b > 0 then d:=('В 1-й четверти')

assign(t,'output1.txt');

rewrite(t);

write(t,d);

close(t);

end.

Операнды имеют неприводимые типы

d заменил, Всеравно