Дан текст. подсчитать,сколько раз в тексте встречается симьол "+" и сколько раз-симбол "*". удалить эти символы, сдвинув текст. текст отпечатать.

var   s: string;   i, n1, n2: integer; begin   writeln('Введите текст');   readln(s);   n1 := 0;   n2 := 0;   for i := 1 to length(s) do     case s[i] of       '+': n1 := n1 + 1;       '*': n2 := n2 + 1;     else write( s[i])     end;   writeln;   writeln('+ удалено ', n1, ', * удалено ', n2) end. Тестовое решение: Введите текст Y:=35.45*x+2*y/(z-4); Y:=35.45x2y/(z-4); + удалено 1, * удалено 2