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

Program HalfSumUses Crt; var a,b,tmp: real; begin clrscr; write ('Введите первое число: '); readln (a); write ('Введите второе число: '); readln (b); tmp: =(a+b) /2; a: =tmp; writeln (' Первое число после замены: ',a); readkey; end.