Программирование а Паскаль!!! СРОЧНО
Убрать из числа все четные цифры!!!

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