Помогите с задачей на Паскале.

[profi]

Дан текст, каждый символ которого может быть малой буквой, циф-
рой или одним из знаков +,-,*. Группой букв будем называть такую
совокупность последовательно расположенных букв, которой непос-
редственно не предшествует и за которой непосредственно не следу-
ет буква. Аналогично определим группу цифр и группу знаков. Если
в данном тексте имеется не менее двух групп букв, то каждый знак
+, встречающийся между двумя первыми по порядку группами букв,
заменить цифрой 1, знак - заменить цифрой 2, а знак * - цифрой 3.
Иначе оставить текст без изменений.

Program zadacha;
uses crt;
var
s:string;
p:set of char;
n,m,k,i:integer;
begin clrscr;
readln (s);
while (s[i] >= #97) and (s[i] <= #122) do
m:=i;
while (s[i] < #97) and (s[i] > #122) do
k:=i;
for i:=m to k do
if (i >= m) and (i <= k) then
begin
if s[i] = '+' then
s[i]:='1';
if s[i] = '-' then
s[i]:='2';
if s[i] ='*' then
s[i]:='3';
end;
write (s);
readln;
end.

Вот набросок. Но он не работает. Подкоректируйте пожалуйста.

Код вставляем в тег [CОDE][/СОDЕ] или пользуемся кнопкой # (расширенный режим). Модератор.

[necky]

Для чего тебе циклы?