Удалить из предложения произвед символов и след. За ним 3 символа

Удалить произведение символов — это некорректное заданиедопустим, надо удалить символ произведения и следующие за ним 3 символа, при этом предполагаем, что символ произведения в строке есть и после него присутствует как минимум еще 3 символаvars,r: string; i,k: integer; beginreadln (s); i: =1; while (s[i]<>'*') and (i <= length (s) doi: =i+1; r: ='; for k: =1 to i-1 do r: =r+s[k]; for k: =i+4 to length (s) dor: =r+s[k]; writeln (r); end.