Строки: дано натур число n.символы S1...Sn. Изменить S1...Sn, удалив из нее все знаки "+", за которыми следует цифра (Delphi)

[Zaraaa]

помогите пжл докончить, никак не могу, не получается ПОЖАЛУЙСТАА(( на делфи,
препод проверил лабораторную работу мою, поржал, но принял отчет и ушел, я не понимаю, что он имел ввиду..пожалуйста помогите,
К ПРИМЕРУ:
УСЛОВИЕ: дано натур число n.символы S1...Sn. Изменить последовательность S1...Sn, удалив из нее все знаки "+", за которыми следует цифра
он написал в "СТРОКА" типа этого:
СТРОКА
;*+5jj+6*+9nn i-9p,y++10 (вместе с другими символами, запятыми, пробелами, буквами и т д)
и в
"Строка без '+' "
;*5jj6*9nn i-9p,y+10
ну вот так примерно, но + все равно есть,хотя в условии дано: удалить + за которыми следует цифра, ОБЪЯСНИТЕ ПЖЛ добрые программисты, что препод имел ввиду
и как исправить в коде

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus, jpeg, ExtCtrls;

type
  TForm1 = class(TForm)
    edt1: TEdit;
    btn1: TButton;
    edt2: TEdit;
    btn2: TButton;
    btn3: TButton;
    lbl1: TLabel;
    lbl2: TLabel;
    lbl3: TLabel;
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure btn3Click(Sender: TObject);

  private
{ Private declarations }
  public
{ Public declarations }
  end;
var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Btn1Click(Sender: TObject);
var
  i: integer;
  s: string;
begin
  s := edt1.Text;
  for i := 1 to length(s) do
    if (s[i] = '+') and (s[i + 1] in ['0'..'9']) then
      delete(s, i, 1);
  edt2.Text := s;
end;

procedure TForm1.btn2Click(Sender: TObject);
begin
  edt1.Clear;
  edt2.Clear;
end;

procedure TForm1.btn3Click(Sender: TObject);
begin
  close;
end;

end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[BDA]

Привожу примеры:
++1 станет +1
+k станет +k
Т.е. сохранение плюсов вполне возможно.
Красный плюс удовлетворяет условию, а синий - нет.
Насчет кода, например:

i := length(s);
while i > 1 do
begin
  if (s[i] in ['0'..'9']) and (s[i - 1] = '+') then
  begin
    dec(i);
    delete(s[i]);
  end;
  dec(i);
end;

[ViktorR]

1. Ввели программный код, выделили, нажали символ #, который в меню окна редактирования.
2. Последний плюс остался, так как там два плюса подряд. Удаляется только второй плюс, который перед цифрой.
3. Цикл

...
for i:=1 to length(s) do
if (s[i]='+') and (s[i+1] in ['0'..'9']) then
delete(s,i,1); 
...

не рабочий, так как при i = length(s) элемент s[i+1] не определен (выход за границу).
И зачем копировать строку в строку, удалять символы, а затем вновь копировать в строку?
Может сразу:

...
Edit2.Text := '';
for i:=1 to length(Edit1.Text) - 1 do
   if (Edit1.Text[i] <> '+') then
      Edit2.Text := Edit2.Text + Edit1.Text[i]
   else
      if (Edit1.Text[i+1] in ['0'..'9']) then
         continue;

Edit2.Text := Edit2.Text + Edit1.Text[length(Edit1.Text)]
...

PS: Не проверял, ...

Как-то так, ...