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

[Андрей.12]

мне нужно удалить пробелы из строки.
например ввод: acf
выход:acf
вот что я набросал

uses crt;
var
s,s1:string;
j,i,n:integer;
begin
clrscr;
write(':');
readln(s);
while s[i]=' ' do
begin
s1:=' ';
n:=pos(s1,s);
delete(s,n,1);
end;
write('?',s);
readln;
end.

помогите исправить ошибку

[Utkin]

Ты можешь поступить по-другому. Используй еще одну строку для результата.
Итак ты читаешь в цикле символы из образца - если символ пробелом не является, то заносишь его в результирующую. Такой способ более нагляден. И еще, используй комментарии. Чем их больше, тем проще искать ошибки.
В твоем примере много ошибок, в частности не инициализирована переменная i. Как минимум этого достаточно, чтобы программа висла.

[Андрей.12]

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

[Utkin]

Могу подсказать - читай правила форума, и там сказано - одна тема, один вопрос.