Ввести с клавиатуры строку символов.....если длина кратна 2 то удалаются числа которые делятся на 2

uses crt;
const cf=['0'..'9'];
var c:char;
    s:string;
    L,i,j,i1,k:byte;
begin
clrscr;
writeln('Введите строку, содержащую в том числе целые положительные числа');
writeln('окончание ввода Enter');
s:='';{строка прка пустая]
repeat
c:=readkey;{читаем код нажатой клавиши}
if c<>#13 then{если не Enter}
 begin
  s:=s+c;{добавляем в строку}
  write(c);{выводим}
 end
else writeln;{Enter, переход на новую строку и конец ввода}
until c=#13;
L:=length(s);{длина строки}
if L mod 2<>0 then write('Длина строки нечетная')
else
 begin
  writeln('Длина строки четная');
  i:=1;{если четная, ищем четные числа}
  while i<=length(s) do
  if(s[i] in cf)and((i=1)or not(s[i-1] in cf)) then{если цифра и она первая 
                                                     или перед ней не цифра}
   begin
    i1:=i;{начало числа}
    j:=i;
    k:=0;{кол цифр}
    while(j<=length(s))and(s[j] in cf) do{пока не конец и идут цифры}
     begin
      k:=k+1;{считаем}
      j:=j+1;
     end;
    if (ord(s[j-1])-48) mod 2=0 then{если последняя цифра четная, число четное}
     begin
      delete(s,i1,k);{удпляем это число}
      i:=i+1;{на шаг вперед}
     end
    else i:=i+k;{нечетное, перешагиваeм}
   end
  else i:=i+1;{не цифра, дальше}
  write(s);{выводим результат}
 end;
readln
end.

var kol:byte;
...................
until c=#13;
kol:=0;
L:=length(s);{длина строки}
if L mod 2<>0 then write('Длина строки нечетная')
else
 begin
  writeln('Длина строки четная');
  kol:=kol+1;
  ......................
  writeln(s);{выводим результат}
  writeln('Количество удалений=',kol);
 end;