Eyshila Gomes

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.