Вывод группы цифр, если количество цифр нечетное

Program lalayla;
var
  s: string;
  i,n: integer;
 
begin
readln (s);
i:=1; 
while i <= length(s) do begin  //убиваем пробелы
if s[i] = ' ' then
delete(s,i,1)
else i:=i+1; 
end;
 
i:=1;           
n:=0;
        
        
for i:=1 to Length(s) do begin
if (s[i]>='0')and(s[i]<='9') then inc(n);// n количество цифр
end;
   
i:=1;   
 
 
///Дальше начинаются проблемы 
 
while n mod 2 > 0 do begin
for i:=1 to Length(s) do begin
if (s[i]>='a')and(s[i]<='z') then delete(s,i,1);  
end; 
inc(i);
end;
writeln('Количество цифр четное');
readln;
end.

Program lalayla;
const cf=['0'..'9'];
var s,s1: string;
    i,j,n,k: integer;
begin
writeln('Введите строку, содержащую пробелы и группы цифр');
readln(s);
while pos(' ',s)>0 do
delete(s,pos(' ',s),1);
writeln('Строка без пробелов');
writeln(s);
s:=','+s;
writeln('Группы цифр нечетной длины');
k:=0;
n:=length(s);
i:=2;
while i<=n do
if (s[i]in cf)and not(s[i-1]in cf) then
 begin
  s1:='';
  j:=i;
  while (j<=n)and(s[j] in cf) do
   begin
    s1:=s1+s[j];
    j:=j+1;
   end;
  if odd(length(s1)) then
   begin
    writeln(s1);
    k:=1
   end;
  i:=i+length(s1);
 end
else i:=i+1;
end.

if k=0 then write('Таких групп нет')

Program lalayla;
const cf=['0'..'9'];
var s,s1: string;
    i,j,n,k,p: integer;
begin
writeln('Введите строку, разделители групп пробелы');
readln(s);
s:=' '+s;
writeln('Группы цифр нечетной длины');
p:=0;
n:=length(s);
i:=2;
while i<=n do
if (s[i]in cf)and (s[i-1]=' ') then
 begin
  s1:='';
  j:=i;
  while (j<=n)and(s[j]<>' ') do
   begin
    s1:=s1+s[j];
    j:=j+1;
   end;
  if odd(length(s1)) then
   begin
    j:=1;
    k:=0;
    while(j<=length(s1))and(k=0)do
    if not(s1[j] in cf)then k:=1
    else j:=j+1;
    if k=0 then
     begin
      writeln(s1);
      p:=1
     end;
   end;
  i:=i+length(s1);
 end
else i:=i+1;
if p=0 then write('Таких групп нет')
end.