Дано натуральное число N. Удалить из записи все четные цифры.Паскаль​

var

a,b,i,t,err:integer;

s,s1:string;

begin

 t:=0; err:=0; s1:='';

 readln(a);

 str(a,s);

 for i:=1 to length(s) do

 begin

   val(s[i],t,err);

   if t mod 2 <>0 then s1:=s1+s[i];

 end;

 val(s1,b,err);

 writeln(b);

end.