Выбросить все чётные числа (на чётных местах) 34687120. Язык PascalABC

Uses crt;
 
Var
 
N, id, kDeg:Integer;
EdCount, M : Real;
 
Begin
 
N:=0;
kDeg:=0;
WriteLn('Введите число N: ');
ReadLn(N);
 
If N>0 Then 
begin
EdCount:=N mod 10;
N:=N/10;
end;
 
If id mod 2=0 Then 
begin
id:=id+1;
M:=M+EdCount*10^kDeg //Остаток от деления на 10
end;
kDeg:= ;
N:=i+1;
If N:=i+1 Then 
begin
 
If N>0 Then 
begin
EdCount:=N mod 10;
N:=N/10;
end;
 
If id mod 2=0 Then 
begin
id:=id+1;
M:=M+EdCount*10^kDeg //Остаток от деления на 10
end;
kDeg:= ;
N:=i+1;
 
end;
Else WriteLn('Ваше значение выводимого числа M= ', M);
 
End.

var n,n1,k,m,c,d:integer;
begin
repeat
write('Введите целое число n>0 n=');
readln(n);
until n>0;
//узнаем сколько цифр в числе, можно и через десятичный логарифм
n1:=n;
k:=0;
while n1>0 do
 begin
  n1:=n1 div 10;
  inc(k);
 end;
//будем составлять новое число
m:=0;
d:=1;
while n>0 do
 begin
  c:=n mod 10;//выделяем цифру с конца
  if odd(k)or odd(c) then //если она на нечетном месте или сама нечетная
   begin
    m:=d*c+m; //умножаем ее на 10 в очередной степени+полученное ранее число
    d:=d*10;//новая степень 10
   end;
  dec(k); //уменьшаем номер цифры в числе
  n:=n div 10;///сокращаем число в 10 раз
 end;
write(m)
end.