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

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