SoloCodigo

hola buenos dias soy nuevo en esto estoy intentando hacer ejercicios facilitos sobre pascal 7 .0 i ay un problema q me sale una parte i otra no i no se realmento donde me equivocado:

elejercicio es de sumar dos numeros introducidos pormi i hacer la media:

aqui os dejo como lo he hecho:

program mitjadenumerossencers (input, output);
var a,b,total:integer;mitja:real;s:char;
begin
      writeln ('introdueix 2 numeros sencer');
      read (a,b );
      total:= a+b;
      mitja:= total/2;
      writeln ('la mitja de',a,'i',b,'es',mitja);
      writeln('Prem s per sortir');
      readln(s);
end.




Me lo suma pero no me hace la media

gracias