Pascal/Turbo Pascal - URGENTE ayuda en un ejercicios de decision simple

El enunciado es el siguiente:

Una distribuidora de libros vende a librerias y a particulares. Aplica bonificaciones por cantidad segun el siguiente criterio:
a) a librerias: hasta 24 unidades, el 20%; mas de 24 unidades el 25%
b) a particulares: menos de 6 unidades,nada; desde 6 hasta 18 unidades el 5% y mas de 18 unidades el 10%.

El tipo de cliente esta codificado asi:'l' para libreria,'p' para particulares. Dado el importe bruto de una compra de libros, el tipo de cliente de que se trata y la cantidad total pedida por el mismo, determinar el importe bruto bonificado.

Le envie a la profesora la programacion:

program e10(input,output);
var u,i,pu,t:real;
lc:char;
begin
write(‘ingrese l para libreria o p para particulares’);
read(lc);
write(‘cantidad de unidades’);
read(u);
write(‘ingrese precio unitario’);
read(pu);
i:=pu*u;
if c=’l’ then
if u>=24 then
t:=i-(i*25/100)
else t:=i-(i*20/100);
if u>6 then if u>=18 then
t:=i-(i*10/100)
else t:=i-(i*5/100);
t:=i;
write(‘total a abonar’,t)
end.

Me envio la correccion y me puso lo siguiente:
-Están mal los punto y coma después de la salida verdadera del if porque no deja ejecutar la salida falsa.


Por favor si me podrian marcar donde esta el error y de que forma quedaria, Muchas gracias!!

Te falta el punto y coma antes del end. en la linea donde dice

write(‘total a abonar’,t);

solo quiero dos ejemplos de decsiciones simples para descuentos o calificaciones solo quiero en programa y la explicacion