Turbo Basic - necesito ayuda con turbo pascal

hola, necesito que me den una mano, soy estudiante universitario de Lic. en Sistemas y en programacion me mandaron realizar un ejercicio de programacion con turbo pascal 7.0 y no se que esta mal de mi ejercicio, me gustaria que me lo corrijan o me digan como tengo que hacer.
Ejercicio: de un bolillero se sacan bolillas de color blancas y negras, contar e informar la cantidad de bolillas de cada color.
yo puse:
program bolillero;
uses crt;
var
blanca:boolean;
contador_b,contador_n:integer;
begin
clscr;
contador_b,contador_n:0,
write(`la bolilla es de color:`);
read(blanca);
if blanca=true then contador_b:=contador_b+1
else
contador_n:=contador_n+1;
write(`el numero de bolillas negras es:`);
readln(contador_n);
write(`el numero de bolillas blancas es:`);
readln(contador_b)
end.

POR FAVOR AYUDA!!!!!!

Hola:

La orden para la limpieza de la pantalla es CLRSCR;
me parece que las comillas son al reves ( ' ).
oara crear un ciclo de IF then encierre las instrucciones entre BEGIN Y END IF , colocando el end al final del else.
writeln( ' lo que tu quuieras', contadores);

Espero te sirva, SALU2.