não consigo resolver esse problema de ' possui média' não esperado
var
nome: string;
l,a,e, mf: real;
{l= Nota de laboratório a= Nota Av. Semestral e= Nota do exame final mf= Média Ponderada final}
Begin
write (' Digite o seu nome');
readln (nome);
write (' Digite a sua nota em Laboratório');
readln (l);
write (' Digite a sua nota em Av.Semestral');
readln (a);
write (' Digite a sua nota em Exame Final');
readln (e);
mf:= (l*3)+(a*3)+(e*4)/10;
if mf>= 8 then
write (nome 'possui média' mf 'e faz parte do conceito A');
if mf<=10 then
writeln (nome 'possui media' mf 'e faz parte do conceito A');
if mf>= 7 then
writeln (nome 'possui media' mf 'e faz parte do conceito B');
if mf<8 then
writeln (nome 'possui media' mf 'e faz parte do conceito B');
if mf>=6 then
writeln (nome 'possui media' mf 'e faz parte do conceito C');
if mf<7 then
writeln (nome 'possui media' mf 'e faz parte do conceito C');
if mf>=5 then
writeln (nome 'possui media' mf 'e faz parte do conceito D');
if mf<6 then
writeln (nome 'possui media' mf 'e faz parte do conceito D');
if mf<5 then
writeln (nome 'possui media' mf 'e faz parte do conceito E');
End.