Прошу :

с (си) написать программу, которая во вводимом с клавиатуры тексте выберет слова, количество букв «м» в которых будет максимально, и выведет их на экран.

program picaso; uses crt; type matrice=array[1..10,1..10] of integer; var i,j,n,m,k: integer;       a: matrice; procedure rea(var a: matrice); begin      writeln('n: '); readln(n);       writeln('m: '); readln(m);       writeln('ведите ',n*m,' элементов');       for i: =1 to m do             for j: =1 to n do            begin                  write('a[',i,',',j,']=');                   readln(a[i,j]);             end;       end; procedure writ; begin      writeln('массив a');       for i: =1 to m do       begin            for j: =1 to n do                   write(a[i,j],'      ');                   writeln;       end; end; procedure calc(a: matrice ); begin            for j: =1 to n do       begin      k: =0;             for i: =1 to m do                                     if a[i,j] > 0 then inc(k);                   writeln('столбец : ',j,' положительные элементы : ',k);       end; end; begin clrscr;       rea(a);       writ;       calc(a);       readln; end.