Что нужно сделать, чтобы применить к выделенному тексту стиль «Маркированный список 4»?

щёлкнуть по выбранному стилю один раз левой кнопкой мыши
щёлкнуть по выбранному стилю два раза левой кнопкой мыши
щёлкнуть по выбранному стилю два раза правой кнопкой мыши
щёлкнуть по выбранному стилю один раз правой кнопкой мыши

щёлкнуть по выбранному стилю два раза левой кнопкой мыши

щёлкнуть по выбранному стилю один раз правой кнопкой мыши

function max (x,y : longint) : longint; begin  if x> y then max: =x else max: =y; end; var k : longint; s : string; begin  readln(s);   while (pos('.',s)< > 0)or(pos('! ',s)< > 0)or(pos('? ',s)< > 0) do

begin    k: =k+1;

    delete(s,max(max(pos('.',s),pos('! ',('? ',); end;   writeln(k); end.

решение на