Найти слово в тексте, содержащее наибольшее количество букв "м". Язык: Pascal

Программа: PacalABC. NET

По предоставить рабочий код! или найти ошибку в прикреплённом!

var i,s: integer;

begin

  for i: = 100 to 200 do

      if i mod 17=0 then s: =s+i;

  writeln(s);

end.

объем информации одного измерения будет равна 7 бит ();

станция сделала 8192 измерения - умножим на кол-во информации, необходимое для записи одного измерения:   8192*7=57344 бит=7168 байт = 7 килобайт

если 25(из которых 15 сто пудов в школьной и 10 смешанные) берут в школьной, то 10 человек берут в районной.

если 20(из которых 10 сто пудов берут в районной 10 смешанные), то 15 в школьной

получается 1) 10 человек; 2)15 человек; 3)10 чкловек; 4)10 чел; 5)15 чел. 

количество базовых цветов обозначим за n. из всех базовых цветов будет складываться какой то один цвет, соответственно количество всевозможных цветов можно вычислить по формуле n=2^(2*n)