найдите ошибку в переменной d

Этот не 100 проц верный, но как мне кажется:

Переменные i и c локальный, а переменная d глобальная, после завершения локальной программы, её данные не сохраняются в глобальной программе поскольку вы вышли с неё, лучше как по мне сделать:

...

if a>b then begin

var i:=...

var c:=...

var d:=...

end

else begin

var i:=...

var c:=...

var d:=...

end

print....

end.