Значение наибольшего из трех параметров a, b, c вывести на экран монитора, если это значение >x и <(a+b)

if a>b and a>c  then 
  if a>x and a<(a+b) then
   writeln('chislo a max')
   else 
begin    
if b>a and b>c  then
 if b>x and b<(a+b) then
  writeln('chislo b max");

uses crt;
var a,b,c,x,mx,mn:real;
begin
clrscr;
writeln('Введите значения параметров a,b,c:');
readln(a,b,c);
write('Введите значение х=');
readln(x);
if a>b then mx:=a else mx:=b;
if c>mx then mx:=c;
if (mx>x)and(mx<a+b) then writeln('Максимальный параметр=',mx:0:2)
else
 begin
  if a<b then mn:=a else mn:=b;
  if c<mn then mn:=c;
  writeln('Минимальный параметр=',mn:0:2)
 end;
readln
end.

var a,b,c,x : Integer;
begin
ReadLn(a,b,c,x);
 
if (a>b) and (a>c) and (a>x) and (a<(a+b)) then
   writeln('chislo a max',a)
   else if (b>a) and (b>c) and (b>x) and (b<(a+b)) then
  writeln('chislo b max',b)
else if (c>a) and (c>b) and (c>x) and (c<(a+b)) then
  writeln('chislo c max',c)
else WriteLn('Error');
 
if (A<B)AND(A<C)AND(A<X) then
          WriteLn('min',a)
          else if (b<a)and (b<c)and(b<x) then
                writeLn('min',b)
                  else if (c<a)and (a<b) and (c<x) then
                  writeLn('min',c) else
                  if (x<a)and(x<b) and (x<c) then
                   writeLn('min',x);
                   ReadLn;
end.