Как написать макрос на использование спеллов по приоритету? (пояснения внутри)

[heyRocket]

Program nagibator;
var LC, L, YCH, KY, SR: integer;
begin
if SR<=40 then cast LC else
if SR=1 then cast L,YCH, KY;
end.