Этот ответ не 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.