Вы не понимаете, как процедуры вызываются в Схеме. Это неверно:
(ReadForPower display(read) display(read))
Это правильный способ вызова процедур:
(ReadForPower (display read) (display read))
Но, с другой стороны, read
работает не так. И вам не нужно ничего делать. То, что вы действительно намеревались написать, это:
(ReadForPower (read) (read))