Может быть, я тебя не так понял. Значит max(y,x) означет что надо вычислить что больше 'x' или 'y'? соответственно и min.
var x,y,max,min: integer;
Begin
Writeln('введите x,y через пробел');
read(x,y);
if x-y>y then min:=y else min:=x-y;
{Если х-у>y тогда переменной min присваеваем значение y, в другом случае min присваеваем значение x-y(если "=" тоже, потому что значения будут одинаковы)}
If min>x then max:=min else max:=x; {примерно также}
Writeln(max);
end.
Если что - пиши в личку.
Удачи!
В)Роща
Объяснение: