Даны два числа x и y (x < > y). меньшее из чисел заменить их полусуммой. составить программу

Program programma;
Uses crt;

Var x,y: real;

begin clrscr;
      write('Введите число x = ');
      readln(x);
      write('Введите число y = ');
      readln(y);
      writeln;
      if x <> y then
      begin
           if x<y then writeln ( ((x+y)/2):0:3,'  ', y)
           else  writeln ( x,'  ',((x+y)/2):0:3);
      end
      else
      writeln('y не должен равняться x');
readln;
end.