В заданном целом положительном числе N (0 < N < 2^10) удалите все четные цифры не нарушая последовательности цифр в числе. в паскале

//PascalABC.Net 3.2beginvar s:=readstring('Введите число: ');var i:=1; var m:=['2', '4', '6', '8', '0'];while i<=length(s) dobeginif s[i] in m then delete(s, i, 1);inc (i);end;write (s);end.

Var A,B,n,M:integer;BeginWrite('A = ');ReadLn(A);While A<>0 do   Begin   if (A mod 10) mod 2 = 0 then      Begin      M:=1;      For n:= 0 to n do          M:=M*10;      B:=(A mod 10)*M+B;      n:=n+1;      End;   A:=A div 10;   End;WriteLn(B div 10);End.Пример:A = 1234567892468