Найти слово в тексте, содержащее наибольшее количество букв "м". (программа Паскаль)

USES Crt;
VAR
  A, D : STRING [255];  I, KB, MKB, K, MK, NP, MNP : INTEGER;
BEGIN
  ClrScr;
  WriteLn('Введите текст');  ReadLn(A);
  I:=1; KB:=0; MKB:=0; NP:=1;
  While(I<=Length(A)) DO Begin
      While(A[I]<>' ') DO Begin
          IF A[I]='м' THEN KB:=KB+1;
          K:=K+1;  I:=I+1;
      End;
      IF MKB<KB THEN Begin  MKB:=KB;  MNP:=NP;  MK:=K;  End;
      NP:=I+1; KB:=0; K:=0;
      I:=I+1;
  End;
  D:=Copy(A,MNP,MK);
  WriteLn('Слово с максимальным количеством букв "м" -  ',D);
END.

у березні 1933 в республіці почався голод, яким було охоплено 103 з 400 районів. однак навіть за цих умов значна кількість зерна йшла на експорт. Центральна Влада спромоглася виділити Україні лише 3 мільйонів пудів хліба. голодомор спричинений величезну смертність населення, особливо серед дітей і старих. траплялися чисельні випадки канібалізму. про голодомор в Україні в 1933 році заговорив увесь цивілізований світ. точим гучніше лунають голоси, тим рішучими були офіційні заперечення керівників СРСР і радянської преси. ось одне з них: "заявление о голодной смерти миллионов советских граждан на Волыни, Украине и северном Кавказе является вульгарной клеветой, грязным наветом"(газета "Правда" 20 липня 1933 р)

аналіз даних демографічної статистики 30-х років свідчить, що прямі втрати населення України від голодомору 1932 становили близько 150 тисяч чоловік. 1933 року голодною смертю загинуло від трьох до трьох з половиною мільйонів чоловік. повні демографічні втрати, включаючи зниження народжуваності, сягали в 1932-1933 роках п'ять мільйонів чоловік. не менше мільйона загинуло на Кубані. голод у 1933 році був наслідком спроби здійснюватись соціалістичне будівництво воєнно- комуністичними методами. проте примусова колективізація і накладено на когось продрозкладка призвели до глибокої деградації сільського виробництва, яка так дорого і не відшкодовано обійшлася країні та народові.

Ученые определили, что похожие люди появляются по той причине, что определенное количество генов связано с внешностью гораздо больше, чем с какими-либо другими областями анатомии человека. Конечно, пока еще ученые не смогли определить, какие конкретно гены отвечают за ширину носа, форму лица и ушей, а также прочие особенности внешности. Но понятным остается один факт – если люди, которые не являются друг другу родственниками, но имеют внешнюю схожесть. Они будут также похожи между собой и на генном уровне, и гены, отвечающие за внешний облик человека, являются превосходной иллюстрацией этого.