Введены 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.