Pascal/Turbo Pascal - Ayuda urgente bro

Program Notas;

 Uses CRT;

 Var nom, c1,c2,c3, Seccion : string;

 n1,n2,n3, promedio:integer;

  Begin

   CLRSCR;

   WriteLn('Ingrese su Nombre');

   readLn(nom);

    WriteLn('Ingrese el nombre de la seccion');

   readLn(seccion);

   WriteLn('Ingrese el nombre del primer curso');

   readLn(c1);

   WriteLn('Ingrese nota del primer curso');

   readLn(n1);

    WriteLn('Ingrese el nombre del segundo curso');

   readLn(c2);

   WriteLn('Ingrese nota del segundo curso');

   readLn(n2);

    WriteLn('Ingrese el nombre del tercer curso');

   readLn(c3);

   WriteLn('Ingrese nota del tercer curso');

   readLn(n3);

   promedio:=(n1+n2+n3) div 3;

   CLRSCR;

   WriteLn('Hola', nom, 'de la seccion',seccion);

   WriteLn('-------------------');

   WriteLn(' Nota de ',c1,' : ',n1);

   WriteLn(' Nota de ',c2,' : ',n2);

   WriteLn(' Nota de ',c3,' : ',n3);

   WriteLn(' Su promedio final es de: ',promedio);

   ReadKey

  End.