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

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

[klem4]

Варинт № 1

uses crt;

var
  ch: Char;
  count: Integer;
  flag: Boolean;

begin
  clrscr;

  count := 0;

  flag := false;

  repeat

    readln(ch); 

    if ch = ':' then flag := true;

    if (flag) and (ch = 'l') then
     inc(count);

  until ch = '*';

  writeln('count = ', count);

  readln;
end.

Вариант №2

uses crt;

var
  ch: Char;
  count: Integer;

begin
  clrscr;

  count := -1;

  repeat

    readln(ch);

    if (ch = ':') and (count < 0) then inc(count);

    if (count >= 0) and (ch = 'l') then
     inc(count);

  until ch = '*';

  writeln('count = ', count);

  readln;
end.

[Alexan]

Огромное спасибо, klem4