Удалить из строки s1 длиной до 40 Символ все слова, которые начинаются с цифры

[ВикторКа]

Срочно нужна помощь завтра нужно сдать проект но у меня ничего не получаться помогите пожалуйста

Задание:

Удалить из строки s1 длиной до 40 Символ все слова, которые начинаются с цифры

[Вадим Мошев]

Какую конкретно помощь вы хотите?

[newerow1989]

var s1:string;
    i:integer;
    probel:boolean;
begin
   Write('s1 = '); Readln(s1);
   i:=0;
   probel:=true;
   While i<Length(s1) do
   begin
      Inc(i);
      If probel and (s1[i] in ['0'..'9']) then
      begin
         Repeat
            Delete(s1,i,1);
         Until (i>Length(s1)) or (s1[i]=' ');
         If i<=Length(s1) then
            Delete(s1,i,1);
      end;
      probel:=(i<=Length(s1)) and (s1[i]=' ');
   end;
   Writeln(s1);
   Readln;
end.

[Вадим Мошев]

newerow1989, осталось теперь удалить ваше сообщение и выдать ваш код за свою работу с последующей продажей заказчику...

[digitalis]

Сообщение от Вадим Мошев

[... с последующей продажей заказчику...

Денег заказчик не заплатит, бо он - препод