Дана строка, содержащая не более двадцати латинских букв. Все вхождение «max» в ней заменить на «min» и «макс» на «мин». Подсчитать число таких замен

uses crt;var i,zi,zj:integer;    s,n:String;beginclrscr;repeatwriteln('Введите строку не больше 20 символов.');readln(s);until length(s) <=20;for i:=1 to length(s) dobeginif (s[i] = 'm') or (s[i]='м') then begin      n:=copy(s,i,3);      if n = 'max' then begin n:='min'; delete(s,i,3); insert(n,s,i); zi:=zi+1; end      else      begin      n:=copy(s,i,4);        if n = 'Макс' then begin n:='Мин'; delete(s,i,4); insert(n,s,i); zj:=zj+1; end;       end;end;end; if (zi <> 0) or (zj <> 0) then writeln('В строке заменено ',zi,'раз. слово "max".  А слово "макс" ',zj,'  раз.')else writeln('В строке не найдено совпадений для замены...');writeln;writeln(s);Readkey;end.