Обработка Строк

[katya_bush]

5.9.2. Определить букву, на которую начинается больше всего слов в предложении.

не знаю с чего начать даже

[IT-man]

не знаю с чего начать даже)

определиться чем одно предложение отделяется от другого

[katya_bush]

Не поняла((
у меня как-то совсем соображений нету((

[xakkkkker]

Program Forum_Stroka;
 var
  Massiv_S:Array [1..33] of string;
  Massiv_kol: Array [1..33] of integer;
  i,j,index:integer;
  proverka:boolean;
  Stroka:String;
 begin
 Stroka:='Mama kupila cveti i kuvshin';
  For j:=1 to 33 do
   begin
    Massiv_S[j]:='';
    Massiv_kol[j]:=0;
   end;
  Massiv_S[1]:=Stroka[1];
  Massiv_kol[1]:=1;
  proverka:=false;
  index:=2;
   For i:=1 to Length(Stroka) do
    begin
      if Stroka[i]=' ' then
       begin
       For j:=1 to 33 do
        if Stroka[i+1]=Massiv_s[j] then
         begin
          Massiv_kol[j]:=Massiv_kol[j]+1;
          proverka:=true;
         end;
        if proverka=false then
         begin
          Massiv_s[index]:=Stroka[i+1];
          Massiv_kol[index]:=Massiv_kol[index]+1;
          inc(index);
         end;
       end;

    end;
     index:=Massiv_kol[1];
     j:=1;
   For i:=2 to 33 do
    if index<Massiv_kol[i] then
     begin
     index:=Massiv_kol[i];
     j:=i;
    end;
   Writeln(Massiv_s[j],'----',Massiv_kol[j]);

 end.

Модифицируйте сами

[katya_bush]

Благодарю)))