Даны действительные числа x, y. меньшее из этих двух чисел заменить их полусуммой, а большее – их удвоенным произведением

Program Anutka1506;
uses crt;
var
  x,y,s,p: real;
begin
  writeln('Введите числа:');
  write('X='); readln(x);
  write('Y='); readln(y);
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  s:=(x+y)/2;
  p:=2*x*y;
  if x<y then
      begin
        x:=s;
        y:=p;
      end
     else
       begin
         x:=p;
         y:=s;
       end;
  writeln('X=',x,'        Y=',y);
end.