Посимвольный ввод данных Опции

[Alexan]

Народ, помогите разобраться!
Задача:Дана последовательность символов, заканчивающаяся знаком «*». Известно, что среди этих символов есть двоеточие. Определить количество букв «l», стоящих после двоеточия.

program lab_816;
var
 ch:char;
 kol:integer;
begin
writeln('vvedite stroky');
 repeat
 read(ch);
  if ch=':' then
   begin
        kol:=0;
  .............     ;  <-- что здесь надо написать???
   end
  until ch='*';
  writeln(kol);
  readln;
 readln
end.