работа со строками

[Андрей.12]

Задание:Найти букву, на которую начинается большинство слов в тексте.

var s:string;
a:array[0..10] OF STRING;
y,n,c,i:integer;
b:string;
begin
y:=1;
b:=' ';
write(':');
readln(s);
while y<=length(s) do
begin
n:=pos(b,s);
c:=n-(n-1);
a[i]:=s[c];
delete(s,n,1);
end;
for i:=1 to 10 do
writeln('a[',i,']=');
readln;
end.

посмотрите плиз, что то не так похоже делаю

[Utkin]

Тебе нужно искать первый символ после пробела и если он буква (это можно определить с помощью множеств), то вести статистику. Потом по таблице определите Вашу первую букву.

[Андрей.12]

так мой алгоритм должен записывать первую букву после пробела в массив.

[Utkin]

Представь что у тебя пустая строка на входе. Что тогда?
Чтобы не выткаться таким образом, расставь комментарии на каждую строку - что за что отвечает (не операторы паскаля, а как элементы алгоритма).

[Андрей.12]

допустим строка:acv dre rcv
находим первый пробел. вычитаем из номера позиции число, так чтобы получился 1 символ строки. записываем его в массив, затем удаляем символы с первого до пробела. повторям те же действия до конца строки

[Utkin]

И в чем проблема?

[Андрей.12]

код не работает(

[Utkin]

Что именно не работает? Вы читали пост #4? Или Вам просто охота поскорей получить код, не разбираясь в ситуации?