Составить программу удаляющую из данного текста все буквосочетания «ма» и выводящую получившийся текст и его длину.

//Pascal ABC.NET v3.0 сборка 1111Var s:string; i:integer;begin readln(s); while pos('ма',s)<>0 do  delete(s,pos('ма',s),2); write('Final string:',s,'; длина=',length(s));end.Пример ввода:мастер на все рукиПример вывода:Final string:стер на все руки; длина=16