Если можно использовать модуль Math, бери из него ф-цию max:
Код:
n:=max(max(max(число1, число2), число3), число4);
или реализуй свою max:
Код:
function max(const a, b:Integer):Integer;//если числа дробные, вместо integer'a - single
begin
if a>b then result:=a else
result:=b;
end;
а дальше то же самое