Программирование а ! убрать из числа все четные !

Var
  i:integer;
  s,x:string;
begin
write('Введите число: ');
readln(s);
for i:=1 to length(s) do
  if StrToInt(s[i])mod 2=1 then x:=x+s[i];
writeln(x);
end.