Program ds;
var s: string;
procedure doWork(var s: string);
var
  i: integer;
  l: integer;
begin
  i := 1;
  l := length(s);
  while (i < l) and ((s[i] < 'z') and (s[i] > 'a') or (s[i] < 'Z') and (s[i] > 'A')) do
    inc(i);
  if (i > 1) and (i < l) then
  begin
    while (i < l) and ((s[i] < 'z') and (s[i] > 'a') or (s[i] < 'Z') and (s[i] > 'A')) do
      inc(i);
    if (i > 1) and (i < l) then
      for i:=1 to l do
      begin
        if s[i] = '+' then
          s[i] := '1';
        if s[i] = '-' then
          s[i] := '2';
        if s[i] = '*' then
          s[i] := '3'
      end;
  end;
end;

begin
  readln(s);
  doWork(s);
  writeln(s);
end.

М

Тэги, тэги, тэги!..

А ты уверен, что задача решена правильно? Мне этот код кажется странным и с явными излишествами. Приведи задание, тогда можно будет точнее сказать.

Вот и задание!!!!!!



Строковый тип данных

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

Тогда задача определенно решена не правильно. По заданию, строка "a+b" должна преобразоваться в "a1b", а строка "+++abc+-*bcd---cde***" должна превратиться в "+++abc123bcd---cde***". А теперь попробуй проверить свою программу на этих исходных данных.

Предлагаю следующий алгоритм решения:
1. Найти первую букву в строке.
2. Продолжая с найденной позиции найти первую небукву в строке.
3. Запомнить эту позицию (начиная с нее надо будет производить замену).
4. Продолжая с найденной позиции найти первую букву (это начало второй группы букв).
5. Запомнить предыдущую позицию (на ней надо будет закончить замену).
6. Если строка еще не закончилась, произвести замену с начальной позиции до конечной.