В матрице m на n найти уоличество строк матрицы,числа в которых возрастают​. c#

Type
  index='0'..'z';
var
  Ch:array[0..255] of integer;
  s:string;
  i,max,imax:integer;
begin
  { очищаем массив счетчиков }
  for i:=0 to 255 do Ch[i]:=0;
  Writeln('Введите текст');
  Readln(s);
  for i:=1 to Length(s) do Inc(Ch[Ord(s[i])]);
  max:=Ch[0]; imax:=0;
  for i:=33 to 255 do { не рассматриваем непечатаемые символы и пробел}
    if max<Ch[i]then begin max:=Ch[i]; imax:=i end;
  Writeln('Символ "',Chr(imax),'" встретился ',max,' раз(а)')
end.

Тестовое решение:
Введите текст
"Что значит имя? Роза пахнет розой, хоть розой назови её, хоть нет." (В.Шекспир)
Символ "о" встретился 9 раз(а)

Наливаем полное ведро 9 литров.Переливаем во 2 ведро тогда остаётся в первом 4 литра а во втором 5 литров.Выливаем воду из 5 литрового ведра.Выливаем в 5 литровое 4 литра из 1 ведра.Тогда в первом 0 литров в 5 литровом 4 литра.Набираем полное 9 литровое ведро.Тогда получаем в одном 9 литров а во втором 4 литра.Отливаем из 9 литрового 1 литр во второе (где было 4 литра а оно 5 литровое).Тогда в одном 8 литров а во втором 5 литров.Выливаем всю воду из 5 литрового ведра.Остаётся в первом 8 литров а во втором 0 литров.Из 8 литров отливаем 5 литров во второе ведро а в пером останется 3 литра

Фф)