Даны действительные числа x,y,z. Большее из них уменьшить в 2 раза, меньшее увеличить на среднее, а среднее оставить без изменения — Pascal(Паскаль)

uses crt;
var x,y,z,mx,mn,sr:real;
begin
clrscr;
writeln('Введите 3 действительных числа:');
readln(x,y,z);
writeln('Сумма чисел=',x+y+z:0:1);
mn:=x;
case ord(y<mn) of
1:mn:=y;
end;
case ord(z<mn) of
1:mn:=z;
end;
mx:=x;
case ord(y>mx) of
1:mx:=y;
end;
case ord(z>mx) of
1:mx:=z;
end;
sr:=x+y+z-mn-mx;
writeln('Меньшее=',mn:0:1,' большеe=',mx:0:1,' среднее=',sr:0:1);
case ord(x+y+z>0) of
1:begin
  writeln('Сумма чисел больше ноля, числа преобразуются');
  mn:=mn*mn*mn;
  mx:=mx/4;
  sr:=0;
  writeln('Меньшее=',mn:0:1,' большеe=',mx:0:1,' среднее=',sr:0:1);
  end;
0:writeln('Сумма чисел не больше ноля, числа не преобразуются');
end;
readln
end.