а) Вместо строчки

f := max(max(a, b), max(c,d));

Вставить строчку

f := max(max(a, b), c);

б) Вместо строчки

f := max(max(a, b), max(c,d));

Вставить строчку

f := max(max(b, c), d);

в) Добавить функцию

function min (x, y: integer): integer;

begin

 if x > y then min := y else min := x;

end

Вместо строчки

f := max(max(a, b), max(c,d));

Вставить строчку

f := min(min(a, b), min(c,d));

г) (с добавленной функцией из пункта в) !!!)

Вместо строчки

f := max(max(a, b), max(c,d));

Вставить строчку

f := max(max(a, b), max(c, d)) - min(min(a, b), min(c, d));