Что делать? Я все обьяснил в пояснении к вопросу

Answer 1

Всегда приводи условие задачи. Конкретно твоя ошибка в том, что, например, if (z1z2z3) then r:=z1-z3; в Pascal пишется как if (z1z2) and (z2z3) then r:=z1-z3; Хотя в программе наверняка многое могло быть улучшено.