Написать программу удаляющую из записи все четные цифры. например. из числа 12345 должно получится 135

Var
t,s:String;
i:integer;
Begin
Readln(s);
For i:= 1 to length(s) do
  if i mod 2 = 0 then continue
    else t:= t +s[i];
Writeln(t);
end.