Даны 4 действительных числа a,b,c,d. Если сумма макс. и мин. равна сумме двух других, то все числа заменить этой суммой, - Pascal

program pr3;
 
var
  a, b, c, d, min, max: real;
 
begin
  writeln('Введите 4 числа');
  readln(a, b, c, d);
  if a < b then min := a else 
  if b < c then min := b else
  if c < d then min := c else min := d;  
  if a > b then max := a else 
  if b > c then max := b else
  if c > d then max := c else max := d;
  
  if min + max = a + b + c + d - (min + max) then
  begin
    a := max + min;
    b := a;
    c := b;
    d := c;
  end 
  else
  begin
    if a = max then a := min else if a = min then a := max;
    if b = max then b := min else if b = min then b := max;
    if c = max then c := min else if c = min then c := max;
    if d = max then d := min else if d = min then d := max;
  end;
  writeln(a, ' ', b, ' ', c, ' ', d)
end.