Задача на максимум и минимум трех чисел

var a, b, c, min, max, Z: real;
begin
writeln('Введите три числа');
readln(a,b,c);
begin
if (a>=b) then max:=a
else max:=b;
if (max<=c) then max:=c;
end;
begin
if (a>=b) then min:=b
else min:=a;
if (c<=min) then min:=c;
end;
writeln('Минимальное число ', min);
writeln('Максимальное число ', max);
Z:=(min)/(max);
if (max=0) then writeln('Нет решений')
else
writeln('Z = ', Z);
readln
end.

var
  a, b, c, min, max, Z: real;
 
begin
  writeln('Введите три числа');
  readln(a, b, c);
  min := a;
  max := a;
  if b > max then max := b;
  if c > max then max := c;
  if b < min then min := b;
  if c < min then min := c;
  writeln('Минимальное число ', min);
  writeln('Максимальное число ', max);
  Z := (min) / (max);
  if (max = 0) then writeln('Нет решений')
  else
    writeln('Z = ', Z);
end.

var
  a, b, c, min1, max1, Z: real;
 
begin
  writeln('Введите три числа:');
  readln(a, b, c);
  min1 := min(min(a, b), c); //минимум трех чисел
  max1 := max(max(a, b), c); //максимум трех чисел
  writeln('Минимальное число: ', min1);
  writeln('Максимальное число: ', max1);
  Z := min1 / max1;
  if max1 = 0 then writeln('Нет решений')
  else
    writeln('Z = ', Z);
end.

IF max<> 0 then 
Begin 
z:=min/max
Writeline('z=',z);
end
else
Writeline('Нет решений');