Поиск наибольшего значения (Delphi)

[Сварог]

Здравствуйте. Возникла следующая задача: есть 3 числовые переменные, вводимые пользователем и требуется найти из них, ту которая больше остальных.

[c0zak]

function max(a,b:integer):integer;
begin
if a>b then max;=a
else max:=b;
end;

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