Помогите пожалуйста отыскать в программке ошибку. Непременно вложенное ветвление( тренировочная

Тупость написана. После исполненья условия x>y какой смысл инспектировать x=y? Это же быть не может.

Ты пренебрегал поставить ; после первого else смотри пример в учебнике.
у нас получается следующее:
if xgt;y then
if x=y then write ('x=y')
else write ('max=',x);
else write ('max=',y);
end.

чтоб тебе было проще, выстраивай иерархию вложенности, т.е если у тебя есть вложенное условие, цикл и иные структуры, выделяй их пробелами как на рисунке в учебнике