Найти частное максимального и минимального из четырех заданных чисел: a,b,c,d

if a>b then max:=a else max:=b;
if c>max then max:=c;
if d>max then max:=d;
if a<b then min:=a else min:=b;
if c<min then min:=c;
if d<min then min:=d;
ch:=max/min;

function m(a,b:real;t:boolean):real;
begin
  if (a>b)=t then m:=a else m:=b;
end;
var
  a,b,c,d:integer;
begin
  readln(a,b,c,d);
  if m(m(a,b,false),m(c,d,false),false)<>0 then 
    writeln('Частное=',m(m(a,b,true),m(c,d,true),true)/m(m(a,b,false),m(c,d,false),false):0:4)
  else writeln('Частное не определяется, т.к. минимальное число=0');
end.

function max(x, y: integer): integer;
begin
  if x > y then
    max := x
  else
    max := y
end;
 
function min(x, y: integer): integer;
begin
  if x < y then
    min := x
  else
    min := y
end;
 
var
  a, b, c, d, mx, mn: integer;
 
begin
  Write('Введите A: '); ReadLn(a);
  Write('Введите B: '); ReadLn(b);
  Write('Введите C: '); ReadLn(c);
  Write('Введите D: '); ReadLn(d);
  mx := max(a, max(b, (max(c, d))));
  mn := min(a, min(b, (min(c, d))));
  WriteLn('MAX = ', mx);
  WriteLn('MIN = ', mn);
  WriteLn('Частное MAX и MIN = ', mx / mn:0:5);
  ReadLn
end.