написать функцию MaxFrom3; MinFrom3 Она обязана отдавать максимальное 3 целых чисел

//PascalABC.NET 3.2 сборка 1318

function MaxFrom3(a,b,c:integer):integer;
Var
  max:integer;
begin
  max:=a;
  if maxlt;b then max:=b;
  if maxlt;c then max:=c;
  MaxFrom3:=max;
 end;

  function MinFrom3(a,b,c:integer):integer;
Var
  min:integer;
begin
  min:=a;
  if mingt;b then min:=b;
  if mingt;c then min:=c;
  MinFrom3:=min;
 end;