Введены 2 числа, замените первое из них на их полусумму

Program HalfSum

Uses Crt; 

var a,b,tmp:real;

begin 

      clrscr;

     write('Введите первое число:');

     readln(a);    

     write('Введите второе число:');

     readln(b);

     tmp:=(a+b)/2;

     a:=tmp; 

    writeln(' Первое число после замены:',a); 

   readkey;

end.