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

Question

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

Answer 1

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.