Строки, удаление символов, Pascal

Формулировка задачи:

Ребят, помогите пожалуйста, тема такая:

Дана строка символов до точки. Группа символов в ней между пробелами считается словом. Удалить из строки первое найденное число. Число-группа цифр от пробела до пробела

я то написал, вроде не сложная задачка то, но выходит так, что я удаляю первую цифру, а как сделать чтоб число не понимаю.... Добавлено через 1 минуту 37 секунд

var
  b:set of char;
 
 i:byte;
 s:string;
 k:integer;
begin
k:=0;
  writeln('vvedite stroky');
   readln(s);
    b:= ['0'..'9'] ;
 
   for i:=1 to length(s) do
   begin
     if (s[i]='.') then  break     ;
    k:=k+1;
 
  if (s[i] in b) then
  begin
  delete(s,k,1);
   break;
   end;
     end;
     writeln(s);
  readln;
  end;
end.

эт та прога, что я написал, но повторюсь, она удаляет первую найденную цифру, а нужно чтоб группу цифр от пробела до пробела, т.е число

Решение задачи: «Строки, удаление символов, Pascal»

Листинг программы

program EvgeniiSp;
uses Crt;
var
 b: set of char;
 i: byte;
 s: string;
 k: integer;
begin
 ClrScr;
 k:=0;
 writeln('Г‚ГўГҐГ¤ГЁГІГҐ Г±ГІГ°Г®ГЄГі:');
 readln(s);
 b:=['0'..'9'];
 for i:=1 to length(s) do
  begin
   k:=k+1;
   if (s[k] in b)
    then
     begin
      delete(s,k,1);
      if (s[k]=' ') then  break;
      k:=k-1;
     end;
  end;
 writeln(s);
 readln;
end.

Объяснение кода листинга программы

В данном коде объявлены следующие переменные:

b: set of char - множество символов.
i: byte - байт.
s: string - строка.
k: integer - целое число. Программа начинается с очистки экрана с помощью функции ClrScr из библиотеки Crt. Затем пользователю предлагается ввести строку, которую он будет редактировать. Далее создается множество символов b, которое содержит все символы от '0' до '9'. Затем происходит цикл for, который проходит по каждому символу в строке s. Внутри цикла переменная k инициализируется значением 1, так как мы начинаем обработку первого символа. Затем проверяется, содержится ли текущий символ в множестве b. Если да, то этот символ удаляется из строки s с помощью функции delete. Если после удаления символ остается в строке, то цикл прерывается с помощью оператора break. После проверки всех символов строка выводится на экран. Программа завершается вызовом функций readln для чтения нового ввода и вызова функции ClrScr для очистки экрана перед завершением программы.