Pascal/Delphi Erro sintático na linha 19; 'possui média' não esperado!

[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.

[devair1010]

@Eyshila Gomes    ali o compilador está reclamando de erros de sintaxe , pois você não colocou um vírguLa depois da msg para separar a variável no comando writeln ,  e também não precisa repetir a mesma coisa várias vezes , não ,  e seu código bem modificado ficou assim  :

Program Pzim ;
var 
  nome      : string;
  l,a,e, mf : real; 
  conceito  : string;
{l= Nota de laboratório a= Nota Av. Semestral e= Nota do exame final  mf= Média Ponderada final}
Begin
  writeln('conceito ',conceito);
  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;
  writeln('MeDia FinAL = ',mf);
  if ( mf >= 8 ) and ( mf <= 10 ) then conceito := 'A';
  if ( mf >= 7 ) and ( mf <   8 ) then conceito := 'B';
  if ( mf >= 6 ) and ( mf <   7 ) then conceito := 'C';
  if ( mf >= 5 ) and ( mf <   6 ) then conceito := 'D';
  if   mf <  5                    then conceito := 'E';
  writeln (nome, ' possui media ', mf:2:2, ' e faz parte do conceito ', conceito);
 End.